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LIST. ME 

WNUIST MC,MD,CND 
“RES 

“TITLE. FRONT 
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;CONTAINS DEFINITIONS, REGISTER ASSIGNMENTS AND MACRO CALLS 
; GENERAL ean ASSIGNMENTS 


Rare ¥ 
R3=% 
R4=%4 
ao=u5 
Sean 
PC=%7 
;STATUS 4 eee (PSK) SIT assioren 
jz3 3V BIT 
=4 32 BIT 
N=10 3N SIT 
2 37 BIT 
PRI7=340 sPRIORITY LEVEL 7 
PRI6= ;PRIORITY LEVEL 6 
PRIS=24 pa ta LEVEL § 
PRIY=20 sPRIORITY LEVEL 4 
PRI3=140 sPRIORITY LEVEL 3 
PRI2=100 sPRIORITY LEVEL 2 
PRI1=40 sPRIORITY LEVEL 1 
VECTOR ADDRESSES 
ereveks! ;ERROR VECTOR 
SvEC=10 sRESERVED iNet VECTOR 
TBITVEC=14 37 BIT VECTOR 
IOTVEC=20 sI0T VECTOR 
VEC=24 sPOWER FAIL VECTOR 
EMTVEC= sEMT VECT 
C= ; TRAP VECTOR 
REGISTER ADDRESSES 
17777 ;PROCESSOR SATUS REGISTER 
TKS=] :KEYE 
TKB=177562 KEYBOARD BUFFER 
TPS=1 64 Ban NTE Gon Soe 
SWR=177570 s CONSOL' cee BU RESISTER 
DISPLAY=177570 CONSOLE DISPLAY REGISTER 


; INITIAL ee POINTER 
STKPT: 


;BIT ASSIGNMENTS 
B1S=100000 


;PROGRAM STACK POINTER 


em i me ee + a re er ee ee ee eee ew 
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; INSTRUCTION EQUATES 
HLT=TRAP 


814240900 
813220909 


KIPARS=1 


z 
be 


;HLT IS A TRAP TO THE ERROR ROUTINE 


SCOPE=ENT SSCOPE IS AN ENT TRAP 


;CONTAINS PASS COUNT 


;G0 TO START OF TEST 


tu) ce ce soem eece ce 
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;SAVE RETURN PC 


SM aok ee mee 


2s: 
1S: 


C008 177570 SCOPES: 


BaasuaTes 


oe em Kom Ren Ree Rook Rat oe | 


888888383 
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FRONT MACYIL 27(732) O4-NOV-76 14:18 PAGE S 
§3 001 1 MOV RY, -(SP) 
Hy Bes my Rees 
d ee »* 
ire Bioee Bt0i ny BLY =(E6) 
ae e 
ind ie oleae 1 ad i STENTAINS RETURN ADDRESS 
iY 4 . 
17g ROUTINE oy BES ORE, REGISTERS SAVED ON THE STACK 
4 
178 sy o1ge67 000020 acerge? Er. (SE), 8 sSAVE RETURN PC 
1793 1 1 MOV (SP)+, 
180 001 12601 MOV (30)+, 81 
181 901 1 MOV (5P)+’ Ro 
18 iO7e lee MOV (SP)+°R3 
ies DO1Ibe Of MOV CSP ds°RE 
ts 
ise ii%6 58005 — 1 - is Pe +E ATAINS RETURN RODR 
| ie FAROR SERVICE ROUTINE CALLED By’, 
189 :T ER CONTROL TO A USER SUPPLIED BoUTINE TE’ See IFIED 
190 001112 005737 177570 ERROR: TST asSWR sHALT ON ERROR? 
1ée Sotiss AppaR fr 3 ane 
; 193 901 1¢2 O3e7 37 3S: BI #811, a8SWR RING BELL? 
194 0011 i Q 3 *BRANCH IF NO 
igs 001132 ; 7 ISR RS, PRNTFS “FORCE PRINT THE MESSAGE 
isp pot tae 1S: Ett #813, J#SWR SKIP TYPEOUT? 
198 001146 1928 BNE 2s *BRANCH IF YES 
133 1156 OOH5b7 ISR RS, PRINTS PRINT MESSAGE 
; '8 ERRPC 
201 OBL se 011667 MOV (g) HL TADS :GET ERROR PC+2 
D01162 162767 SUB AL Tad >MODIFY 
, p03 O01170 117767 MOVB HL TADS HLTCTS ;SAVE HLT ARGUEMENT 
| eo DC 117% Olére7 MOV tTY 
001 767 JSR PC, PRIATR sTYPE LOCATION WITH LEADING ZEROS 
«BEN Bey ms: TH peak HER Fagan POUT 
Obiee9 100001 BLAS ;BRANCH 1 
| B10 O01 1000 900006 4S: BIS —_—#BIS, ERRFLG ;SET ERROR FLAG 
| et 951 000010 Ine ERRORS ‘UPDATE ERROR COUNTER 
| $15 oo : 0 
| pty Boi eae KATH 0 
1 poles HLT : 9 :PC_OF ERROR 
: : leas ERRORS: aia ee ERROR COUNT 
i Ti $ ° 
18 Obese ooso1s 041520 ERAS, : 1g ¢15><12><15><12> "PCs ” 
| 219 O01 000 


EVEN 
; THIS Rou ine WILL PRINT AN ASCIZ MESSAGE. 
o20000 177570 barns 3 - a LS oESURe ™ NHIBIT TYPEOUTS? 

+ Bt pete : HIF NO 


RES 


=+ 
= 
ws 
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062705 o00002 ALD #2,R5 ;UPDATE RETURN ADDR 

oco20s RTS - RS 

108737 177564 PRNTFS: iste -  gaTPs ;WAIT FOR PRINTER TO FINISH 
10546 MOV RS,-(SP) 

16 oo0002 ADD #2’ (SP) sADJUST RETURN PC 
11505 MOV (RS), RS GET MES ADOR 
ie 1S: IST (Rs) :CHECK FOR TERMINATOR 
1 HOY (SP)+,RS 3GET RETURN ADDR 

ll 177566 23: MOVE  (RS)+,aeTPB :PRINT CHARACTER 
105737 177564 TSTB aeTPs *WAIT TILL DONE 
AposGe BR is 
-THIS ROUTINE TvPes A LOCATION IN CCTAL - 
020000 177570 PRINTR: BIT #813, J8SWR s INHIBIT TYPEOUT? 

4 PRINTA *BRANCH IF. NO 
032737 O20000 177570 PRINTS: BIT #813, J8SWR ; INHIBIT TYPEOQUT? 
pO 1405 PRINT :BRANCH IF NO 


a 
8 
5 


PRINTA: MOVB 


.' 
-_ 


-PR ;SET ZERO FILL SWITCH 


+e 
132 PRINTB: CLR 38 i SS LEADING ZEROS 
112767 0335 000125 MOVB 8-6, .PR+1 >SET COUNT 

1 PTIT: MOV R4, -(SP) i SAVE RY 

1 001540 MOV 8.PR+2,R4 >SET POINTER TO FIRST CHARACTER 
105014 CLRB 3s (RY) *CLEAR FIRST BYTE 
000413 BR .PRF *ROTATE FIRST BIT 
105014 .PRL: CLRB (RY) :C OF CHAR 
032767 O00100 900102 BIT #100, .PR :BIT TYPING MODE 
O01 BNE . PRE *YES SKIP 2 ROTATES 

167 000120 ROL TTY sROTATE BIT INTO ¢ 
106114 ROLB 3s (4) : IT 
006167 o00112 ROL TTY 
106114 ROL = (4) 
006167 000104 PRF: ROL TTY 
106114 ROLB = (4) 
105714 TSTB ss (4) 31S IT ZERO 
001402 BEQ +6 :SKIP INC 
105267 o0004%6 INCB PR -SET FILL SWITCH 
105767 OO0004e2 TSTB sc PR CHECK FILL SWITCH 
eed I Pi (4)+ AE arte ASCIZ CHAR 
105267 aeayt Phe PRI > INC 
001346 ~PRL jREPEAT 
001540 CHP #.PR+2,R4 “EMPTY BUFFER 

I +6 *SKIP IF NO 
tere 700060 fre wee TERMINATOR 
ipaees 177534 JSR RS, PRINTS PRINT AeSeaGE 
001540 PRE 
01 Hov (SP)+,R4 
coodi2 -PR:  .BLKW 1 
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TTY: 
RANDS: 


1$: 


177566 35: 


> Zz 
ooo = 
a<<< aw 


aaa eM sat cteicictetactiict ich tt iatinte fete 


#IAPUTS$,R3 
aINPUTSI2D, R3 


0077560 
91177562, (3) 


8177, 3) 


RS, PRINTS 
1$ 

#TKB, a8TPB 
aeTPS 

“4 

ils, (3)+ 


al Bam 


(6)+,R3 
PC 





;SAVE THE SEGISTERS 
:SET RO WITH LOW 
SET R1_ WITH HIGH 
:SET SHIFT COUNT 


; SHIFT RO LEFT AND 


;ADD_# TO MAKE X 129 
; PROPOGATE CARRY 
;ADD_# TO MAKE X 129 
t PROPOGATE CARRY 


PROPOGATE CARRY 
‘ PROPOGATE CARRY 


;RESTORE THE REGISTERS 


;WAIT FOR A CHAR 


;GET CHAR 
eT OF tes 
;SKIP IF Ne 


;PRINT MESSAGE 
s GLERR BUFFER AND START OVER 
;ECHO THE CHAR 
;WAIT FOR READY 

;CHECK FOR RETURN 


;RESTORE R3 
; RETURN 
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ne 
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000050 
000074 
OOO065 
000062 
JUUU SS 





000212 


000162 


000132 


000106 





062706 ‘000002 
004767 176564 
000207 


000020 

116067 002014 

2767 177770 
07 


000812 
ooog0e 


INPUTS: 
READMS: 
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BL 


-BLKW 
-ASCIZ 
READLS: .ASCIZ 


HO1 


20 
*2*°<1S><l2> 
«12> 


; TAKE THE CONTENTS OF THE TTY INPUT SUFFER AND 
;PACK THEM 


PACKS: 


es: 


1S: 


PKEX$S: 
PKEX1S: 


PACS: 


i B®RRRPeC ES 


—+ wD 
aw -4 
——4 UW 


NTO ONE WORD TO CREATE AN OCTAL NUMBER 


PC, SAVES ;SAVE THE REGISTERS 
NUMS 

RO 

INPUTS(RO) 

1$ 

RO 

é 

PC, PACS GET OCTAL C 

PKS. NUM “PACK FIRST CHAR 
PC, PACS :GET OCTAL C 

PKS 

PKS 

PKS, NUMS :PACK SECOND CHAR 
PC, PACS GET OCTAL CHAR 
PKS 

PKS 

PKS 

PKS, NUMS sPACK THIRD CHAR 
PC, PACS *GET OCTAL CHAR 
PKS 

PKS 

PKS, NUMS ;PACK FOURTH CHAR 
PC, PACS GET OCTAL CHAR 
PKS 

PKS 

PKS 

Pe 

PK 

PKS, NUMS PACK FIFTH CHAR 
PKEX1$ 

#2, SP sMODIFY STACK 

PC, RESTS sRESTORE THE REGISTERS 
PC sEXIT 

RO 

PKEXS 


PKS 
[APUTSCRO) PKS ;GET INPUT CHAR 
§177770, PKS ;CLEAR UNWANTED BITS 
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000909 PKS: 0 
000060 NUMS: 90 
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-TITLE RP1IC RELIABILITY TEST 


START: RESET ;CLEAR THE WORLD 
MOV #STKPTR, SP :SETUP STACK aan 
Ie RS’ IMT SANA TEA A Ti Fae SSAGE 
CLR FLAG. CLEAR PROGRAM FLAG 
BIT #56, o#SWR WANT 10 USE MEMORY MANAGEMENT? 
MOV #23, JSERRV EC ye TRAP TEST FOR MEMORY MANAGEMENT 
MOV #40, OSERRVEC+2 
TST ass sMEMORY MANAGEMENT 
CLR qe an : YES! SET uP TO USE MEMORY MANAGEMENT 
MOV #200, d#KIPAR1 ;3SECOND 4K PAGE 
MOV 8 #KIPAR? °1/0 PAGE 
MOV #400#256.-400+UPSRW,deKIPDORO  § ;SET KIPDRO=RW UP 400 BLOCKS 
MOV #400%256.-400+UP+RW, J8KIPDRI § ;SET KIPDRI=RW UP 400 BLOCKS 
MOV #400%256.-4O0+UP+RW JKIPDR? ;:SET KIPDR7=Ra UP 400 BLOCKS 
Inc g4SRO sTURN ON MEMORY MANAGEMENT 
23: BIS IT6 SET = NO MEMORY MANAGEMENT 
33: nov sue cre, aeeRRve RESTORE TRAP CATCHER 
CLR SEAGER ASCII TERMINATOR SO ON RESTART THERE IS NO HEADER 
ISR RS. =XTMEN SET A BUFFERS 
CLR ceex! ae "SEEK RANDOM NUMBER GENERATOR 
CLR ICNT Pass COUNTER 
CLR DSKNOR : CLEAR 
CLR CYLINDER *CLEAR thE TOWCTHOER ADDRESS 
CLR DMA *CLEAR DAR REGISTERS 
CLR PATNU *CLEAR PATTERN COUNT 
CLR CNTA *CLEAR READ COUNTER FOR DATA AND RANDOM TEST 
BIT #88, J#SWR USE CONVERSATION MODE? 
BNE LC *BRANCH IF YES 
BIS #70000, FLAG 
IMP TST 
sENTER OPERATOR CONVERSATION MODE 
LCONM: MOV J#SWR, -( SP) sPUT SWR ONTG STACK 
BIC H177794.¢ (SP)  $CLEAN OUT UNWANTED SWITCHES 
CMP #3, (SP)4 TEST 3? 
BEQ *BR IF YES 
a IMP CYLSK -GO DO ADDRESS CONVERSATION 
ISR RS, PRNTFS sFORCE PRINT THE MESSAGE 
SPECMES :STANDARD WORDS TRANSFERED = 
MOV SWRDCT, TTY 
JSR PC, PRINT sFORCE TYPE LOCATION - SUPPRESS ZEROS 
JSR RS, PRNT *FORCE PRINT 
CONL ASK ABOUT bare TEST ONLY 
JSR PC, READS ‘INPUT MESSAGE 
cH 131, INPUTS jTest FOR YES 
BIS #810,FLAG eet DATA TEST ONLY FLAG 





eS EN 
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464 BnS750 
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4B 002736 
ues bosvee 
469 002754 
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Woe Bosoos 
475 002004 
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uy DbSbie 
nt nee 
dBi 
482 003032 
vey 903040 
uae DOSoNS 
486 003052 
ues Ooa0ee 
5 ee 
49] 
492 903074 
433 003074 
uae bosioe 
496 106 
497 il 
oe 
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$00 003126 
ue 
5 patie 
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Bhe | BOsiee 
506 003164 
507 003164 
508 003170 


C RELIABILITY TEST 


0O04S67 


004567 
0e5011 
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176414 


17611¢ 


177112 
022720 


177370 
177362 


022700 
022672 


177304 
022560 


176722 


022554 
177174 


022506 
022464 
Oee446 
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DSKDR: 


DATTES: 


ASKWC: 


WCCON: 


TKSR: 





RS, PRNTFS 


ADS 
Oraie INPUTS 
DATTES 
#811,FLAG 


NUM NOR 

N93 78 DSRNOR 

DSKNOR 

DSKNOR 

ASKWC 

RS, PRNTFS 

PC, READS 

PC’ PACKS 

#10, NUM 

DATTES 

NUMS 

NUMS 

NUMS, FLAG 

RS,PRNTFS 

ADS 

Wate INPUTS 

TKSR’ 

RS, PRNTFS 

PC, READS 

PC PACKS 

WECON 

SHROCT, WORK 

WORK 

WCCON 

NUMS, SWROCT 

SURDCT WROCT 
1,FLAG 

RS, PRNTFS 


;FORCE PRINT THE MESSAGE 
;ASK moo MULTI DRIVE MODE 
3 INPU T MESSA 

Test FOR ‘> 


ery 7 MULTE UN UNIT FLAG 


;FORCE PRINT THE MESSAGE 
$7 Nor Sen UNITS 

j CONVERT TnPu TO A NUMBER 
315 IT ZERO 


31S NO. TOO HIGH 
;SAVE HIGHEST UNIT NO. 


sFORCE PRINT THE MESSAGE 
:ASK UNIT NUMBER 

: INPUT MESSAGE 

‘CONVERT INPUT TO A NUMBER 
1S NO = OR>10 

s 


;SAVE UNIT UNDER TEST 


co «a e 3 MESSAGE 
;ASK ABOUT OPTIONAL WORD COUNT 
Hiheut MESSAGE 


TES 
*ASK "ABOUT SPTIONAL DAR 
FORCE PRINT THE MESSAGE 


SASK LENGTH OF 
: INPUT Nescace 


CONVERT INPUT TO A NUMBER 


;1S_NO. GREATER THAN AVAILABLE CORE? 
sYES ASK FOR COUNT AGAIN 
OPERATING WORD COUNT 


;OPERATOR SELECTED WORD COUNT 


;FORCE PRINT THE MESSAGE 
sASK ABOUT DISK ADDR 


o-= 


: 
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03 A 4762 i 06 JSR PC, READS : INPUT MESSAGE 
1 00131 176610 CMPB = #1. 31, INPUTS “WILL OPERATOR SUPPLY ADDR? 
ll BNE oPpPAt :BRANCH IF NO 
512 003006 009040 o22416 salt BIS #85, FLAG 
at i S67 176062 JSR RS, PRNTFS oe PRINT THE MESSAGE 
is 116 CON7C “GET YLINQER ADOR 
218 pOaSoe oeaeee ee eee 33n Be? Beare AONVERT™ PReut TO A NUMBER 
=) P| 

22 oases 2767 bapee 177074 CMP Aas NUMS *IS CYLINDER LEGAL 
519 003240 101765 BLOS  OPLAR 
S20 O03242 016767 177066 922364 MOV NUMS, SCYL ;SAVE ADDR 
S21 003250 OPDAL: 
S22 003250 OO4S67 176026 JSR RS, PRNTFS sFORCE PRINT THE MESSAGE 
S23 003254 O24 CON? *GET HEAD ADDR 
S24 003258 004767 176422 JSR PC, READS : INPUT MESSAGE 
525 on32be 767 176574 ISR PC: PACKS :CONVERT INPUT TO A NUMBER 
S26 2767 boabe4 177040 CMP #24, NUMS 
527 003274 101765 BLOS  OPDAL ; BRANCH IF HEAD ADDR TOO HIGH 
S28 003276 016767 177032 022332 _ MOV NUMS, SHED ‘SAVE ADDR 
S29 002304 OPDRE: 
530 003304 oO04S67 175772 JSR RS, PRNTFS FORCE PRINT THE MESSAGE 
531 003310 025075 CON7B *GET SECTOR ADDR 
532 003312 OO4767 176366 JER PC, READS : INPUT hescage 
533 003316 004767 176540 ISR PC’ PACKS :CONVERT INPUT TO A NUMBER 
534 003322 000012 177004 CMP #12, NUMS *IS SECTOR ADDR TOO HIGH? 
535 003330 101765 BLOS  OPDA2 
236 003332 016767 176776 022300 MOV NUMS, SSEC ;SAVE ADDR 
538 003340 OPPAT: 
539 003340 175736 ISR RS, PRNTFS sFORCE PRINT THE MESSAGE 
540 003344 025136 CONS "ASK ABOUT DATA PATTERNS 
541 003346 004767 176332 JSR PC, REACS INPUT MESSAGE 
S42 0033S2 004767 176504 JSR PC? PACKS :CONVERT INPUT TO A NUMBER 
43 003356 022767 O00020 176750 CMP 20, Nun “TEST FOR CORRECT NO 
544 003364 101765 BLOS SPATS ASK AGAIN 
545 003366 022767 O00017 176740 CMP Mt NUMS 
bub 003374 00141 : BEQ OPWAT sDATA PATTERN UNDER PROGRAM CONTROL 
47 003376 052767 100000 o22226 BIS #815, FLAG >SET PROGRAM 
oY p53404 016767 176724 O22240 OY NUMS, PATNU ‘OPERATOR WANTS TO SELECT DATA | 
SO ie et 006167 022232 ROL PATNU 
55i 003420 042767 070000 O22204 OPWRT: BIC #70000, FLAG CLEAR OP MODE BITS IN FLAG 
5S2 OOseb OOW5/ 175650 ISR RS, PRNTFS i FORCE PRINT THE MESSAGE 

0034 164 CONS *ASK ABOUT WRITE 
£54 003434 004767 176244 JSR PC, READS : INPUT | 

iee7b7 000131 176346 CMPB #131, INPUTS ee FOR YES | 

556 1003 BNE OPRD "ASK ABOUT WRITE CHECK 
557 003450 052767 O40000 022154 BIS #814, FLAG YES SET FLAG BIT 
558 002456 OPRD: 
559 003456 O04S67 175620 JSR RS,PRNTFS FORCE PRINT THE MESSAGE 
560 o03462 025234 CONL1 ASK ABOUT READ | 
bl 003464 004767 176214 JSR PC, READS : INPUT MESSAGE 

003470 122767 000131 176316 CMPB —s- #131, INPUTS “TEST FOR YES ANSWER 
S63 003476 001003 BNE | 


S64 903500 052767 010000 022124 BIS #812,FLAG ;SET FLAG TO READ 
































003506 OPWCK: 
See 00 uSG7 175570 JSR RS, PRNTFS SFORCE PRINT THE MESSAGE 
re Boscia peeses of CONLO Aor BOUT WRITE CHECK 





RELIC RELIABILITY TEST MACYL1 27(722) O4-NOV-76 14:18 PAGE 13 
4 O04767 176164 JSR PC, READS :INPLIT MESSAGE 
3e ice 7? O00131 176266 CHPB sw 131 INPUTS 
I BNE CHKMO) 
71 30 952767 o20000 922074 81S #813, FLAG sSET WRITE CHECK FLAG 
S72 003536 032767 O70000 022066 CHKMOD: BIT #70000, FLAG *MAKE SURE SOME OPERATION WAS SELECTED 
223 003544 001725 BEQ OPWRT 
575 
576 003546 0905737 ou0042 ADTST: YST ae4e2 ;UNDER MONITOR CONTROL? 
577 003552. 001444 BEQ 1$ *BRANCH IF NO 
578 GO3554 005067 022102 CLR 
579 60 012777 OO0001 o22020 3s: MOV #1, JRPCS ;CLEAR THE RP1IC 
580 003566 116777 022070 O2c014 MOVB  DSKNOR,JRPCS1 SELECT THE DRIVE 
581 003574 005777 Oecde6 TST aRPDS 13. THE UNIT READY? 
582 003600 100903 BP. 23 *BRANCH IF NO 
583 003602 005267 922054 INC DSKNOR ;UPDATE UNIT NUMBER 
584 003608 000764 
585 002610 005367 o22046 2s: DEC DSKNOR sDSKNOR = NUMBER OF UNITS 
S86 003614 000241 CLC 
003616 006167 0 ROL DSKNO 
588 O02622 O061E7 022034 ROL DSKNOR 
003626 052767 OO4000 021776 Bi #81! FLAG ;SET MULTI DRIVE FLAG 
' §90 003634 005767 O220e22 TS DSKNOR WERE ANY UNITS AVAILABLE? 
531 003640 100011 BPL 1$ BRAN CH IF YES 
S92 003642 004567 175416 ISR RS, PRINTS “PRINT MESSAGE 
| §93 003646 024207 MES20 
|  §94+- 003650 013701 oo0042 MOV gave, Rl ;ABORT - NO UNITS AVAILABLE 
595 003654 005067 i74ite CLR yp ?SET ABORT FLAG 
596 003660 000167 010614 IMP MEXIT 
|  §97 003664 032767 OO4000 o21740 1S: BIT #811, FLAG SARE WE IN MULTI DRIVE MODE? 
| §98 003672 OO142e BEG EXMFLG *BRANCH IF NO 
,  §99 003674 O04SE7 175402 JSR RS, PRNTFS :FORCE PRINT THE MESSAGE 
| $00 003700 Se4061 MES11 
| 601 003702 016767 021724 021764 MOV FLAG, ACNVX ;TELL OPERATOR THE UNIT UNDER TEST 
602 003710 O06067 021760 ROR ACN NK 
| 603 003714 O06067 021754 ROR ACNV 
604 003720 042767 177770 021746 BIC R777 70 ACNVX 
| 605 003725 016767 Oe2174e 175626 MOV ACNYX, TTY 
606 003734 004767 175440 - JSR PC PRINTE sEORCE TYPE LOCATION - SUPPRESS ZEROS 
| 807 003740 032737 O00010 177570 EXMFLG: BIT #83, J#SWR sRUN SEL LECTED TEST? 
B08 003745 001410 - BEQ 1$ :BRANCH IF 
609 003750 013700 177570 . MOV ie SUR GET SWITCH MO eTTINGS 
610 003754 042700 177770 BIC ea RO 
' 611 003760 o00241 cLe j 
| 612 003762 006100 ROL RO 
_ 613 003764 000170 oo4O04 JMP JTSTTBL(RO) ;G0 TO SELECTED TEST 
614 003770 032767 002000 021634 15: BIT #810, FLAG ;DATA TEST ONLY? 
' 615 003776 o014ie BEQ ADT 
| 16 004000 000167 ode2be IMP DATAT D0 DATA TEST 
| §18 oo4oo4 co4oe4 TSTTBL: ADTI 
619 004006 o04502 AD 
620 OO04010 OoOsse4 ADT3 


ee — 























RELIC REL RELIABILITY TEST MACY11 27(722) O4-NOV-76 14:18 PAGE 14 
412 6230 WRCK 
& Boots Oi G53e Hee ST 
4 bie 12272 DATAT 
O04 2 O1336e RANEX 
014514 PFIST 
Pe 
£27 
628 
ps3 SSTTL *x**% TEST 0 424%% 
631 
632 IN THIS TEST THE PROGRAM SEEKS FROM 0 TO N AND THEN BACK 
£33 :T0 0. N STARTS AT ZERO THEN INCREMENTS TO 1 625 
6 3 DONE 15 TIMED OUT, SELECTED UNIT CYLINDER aboRess’ is MTESTED. SEEK UNDERWAY 
35 ?IS CHECK, AND THE ATTENTION FLAG IS TESTED. 
637 004024 OOSO67 O21646 ADT1: CLR TESTNO 
628 004030 O04567 175230 ISR RS, PRINTS ;PRINT MESSAGE 
639 034 023740 MES 
640 004036 016767 O21634 175516 MOV TESTNO, TTY 
641 004044 004767 175306 JSR PC, PRINTS sTYPE LOCATION-SUPRESS ZEROS - 
642 OO40SO0 012777 004470 021524 RADT1: MOV #INTCK,AVECTOR ;SET UP DISK VECTOR 
£43 056 012777 000340 021520 MOV #340, JSTATUS 
£44 004064 O04SE7 012500 JSR RS, OSKNOS ;SELECT UNIT 
| 645 004070 005067 021550 CLR CYLINDER 
646 74 067 021606 CLR WORK2 ;CYLINDER COUNTER 
| 647 004100 005067 021604 CLR WORKS POINTER 
| 648 004104 012737 000200 177776 MOV #PRI4, JHPSW “ALLOW INTERRUPTS 
| 649 O04112 117777 021510 021506 9s: MOVB aRPDS, JRPDS *CLEAR ATTENTION BITS 
- 650 004120 016777 O21520 021470 MOV YLINDER,JRPCA SET CYLINDER REGISTER 
_ 651 004126 005067 000346 CLR INTEL *CLEAR INTERRUPT FLAG 
| 652 OO4132 052777 020011 oe1446 BIS #20011,9RPCS | ;SEEK AND ENABLE ATTN INTERRUPT 
$53 004140 0128700 op00e5 MOV #25,R0° 
/ 654 004144 300 1S: DEC RG sDELAY FOR DONE TO SET 
| 655 OO4l46 001376 BNE 1$ 
| 656 OO41S0 105777 021432 TSTB  aRPCS sTEST FOR DONE 
| 857 004154 100402 BMI 2 *BRANCH DONE SET 
/ 6858 004156 104400 HLT :DONE DID NOT SET AFTER SEEK 
659 OO4160 ? BR 8S 
| 660 l62 005767 021520 23: TST WORK2 ;DON’T TEST SEEK UNDERWAY 
661 004166 001406 3EG 3$ IF FIRST TIME THRU 
| 662 004170 032777 O0e000 021430 BIT #810, ORPDS *DID SEEK UNDERWAY SET? 
663 04176 001002 ENE 3$ *BRANCH IF YE 
664 004 104400 Ht : SEEK UNDERWAY DID NOT SET 
665 04202 O004S6 BR BS 
/ 666 O04204 oDS900 33: CLR RO 
667 O04206 O05200 oS: INC RO s TIMEOUT UNIT READY 
668 O04210 005777 O2l4I1e2 TST JRPDS *1$ UNIT READY? 
669 004214 100414 BMI 6$ *BRANCH IF YES” 
670 OO4216 005237 025714 INC aHCYLA 
671 O04222 005237 025714 INC aeCYLA 
672 O04226 005337 625714 DEC aeCYLA 
673 O04232 005337 025714 DEC JeCYLA 
674 O04 5700 TST RO TIMEOUT? 


675 00424 1362 BNE S$ t BRANCH IF NO 
676 O04e42 204400 HLT sREADY DID NOT SET AFTER SEEK 


ee em = en ee ET 


Oe ee me ree ee eee ee eee 
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| DIZRPE. PLE TEST O eeeee 
”? ' Bk gs 
| é: 323 sonoce es: fst ENTLG sDID SNTEREUPT OCCUR? 
é: BNE 12s :BRGNCH IF YES an artiers 
| LT a INTERRUPT DID NOT OCCUR ON ATTENTION BIT 
& O1esiz 128: JSR PC GATTN sDETERMINE ATTENTION SIT 
cas o$5 SHEELE ns:c3y 1 Sirs aaF#N_ RPDS se RTTENTICN BT cers 
| Ss 1 ne 7 BRANCH IF YES 
| Fe Hs ae SO TENTION BIT DID NOT SET 
| 
b8? 021340 021222 7S: ef CYLINDER, @SUCA IS SUCA CORRECT? 
£s8 1439 7 § 
529 OOM310 Olg7e? 021320 013440 MOV a eee s EXPECTED pEsu ts 
£59 16 017767 21306 O13435 MOV SUC RECEIVED 
| £3 1 eae ETNS sue INCORRECT 
| 63 777 «Oelese LIS: T aRPCS fe Device 
| es es ee Ae Se SBEVICE ERROR AFTER SEEK OPERATION 
| 5s Soar es OC4C00 O21260 es: Bit 11, aRFDS ; SEEK TE ERROR? 
4 14 BO tiC*SM Ne etenp 
658 OO43S0 1 go001s 021230 MOVB 815, aRPCS Issue 
§33 Ba : 021224 TSTB are ts {WAIT FOR 
70h 4 e77 190000 021234 1238 er 8815, 2POS WAIT FOR UNIT READY 
| 33 374 Ole76? OONI12 174400 48 MOV 89, LAD :SET UP LOOP 
ore Shao 021300 ie WORKS ; SEEK SEEK CYLINDER ZERO? 
706 ooNi9 100411 BMT 10$ 
707 Oowle O0S267 021270 INC  WORK2 IOPOATE CYLINDER 
708 & 016767 Oelees 021220 HOY WRK Ct INOER 
703 Pie 021256 BIS 15, WORK ;SET SEEK ZERO FLAG 
7g Bowed peeber poison we Fo han SCLEAR SEEK ZERO FLAG 
| 913 Sone ? pbdeze 021234 _ 8625, WORK2 'HAS LAST CYLINDER SEEN REACHED? 
714 Dose O01 7 be 9S * BRANCH IF 
| 215 OOM 002000 177570 BI 8810, desu tREPEAT TEST 
7} sobs 1407 BQ Te ?NO-GO TO NEXT 
717 167 177360 IMPs RADTI : YES 
719 : 
720 Dow70 012767 900001 00002 INTCK: Moy al, INTFLG sSET INTERRUPT FLAG 
72] 7 po0002 RT! 
7e2 OCHS0C 00000 INTFLG: 6 


ee ee cone 2 ee eee ee. 
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: 
735 
ce Sait 16762 ares 021166 
738 14 
739 004516 01676 1154 175036 
A Bee Ge tse 
o3 Sousug beste? Bassi C21040 
fe ESS fee Se 
ee 
Ss ies tee 

021026 
e tee fer Bel 
Ger tee Beis 
a es 
769 001 
a es ieee 
res 004632 106004 020750 
i Bowed 012767 OO4S4O 174132 
re ee toy BOE lente 
eee bee Bee 
771 O0467e te4 fl 
ee Ee: 
774 004706 0167e0 020732 
775 7le 
re fees ieee oe 
778 004722 001374 
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-SETTL ##eee TEST | #enee 


WRITE N TEN SECTORS ON EACH TRACK. THE FIRST 
: WORD SOF ence SECTOR Te FHC & CYLINDER NUMBER AND THE REMAINING WORDS CONTAIN 
THEN EACH SECTOR 3 READ BACK TEN AT A TIME AND 
COREE nafet te OF Re HOR 0 OF SECTOR DOES NOT COMPARE WR 
YLINDER WAS PROBABLY CTED. A NON COMPARE ON THE FIRST 
ae 1s INDICATED BY TYPING "CYL" err THE ERRING DATA. 
LIF ANY OT AILS Tf WRChiG OR SECTOR WAS 
:SELECTED. THE RIGHT HALF OF THE ontA YPED EQUALS THE SECTOR 
[AND THE LEFT HALF INDICATES THE HEAD. 
ADT2: MOV #1, TESTNO 
IR RS; PRINTS sPRINT MESSAGE 
MOV TESTNO, TTY 
ISR PC. PRINTS ; TYPE LOCATION-SUPRESS ZEROS 
CLR MEX :CLEAR DRIVE EXTENDED MEMORY SITS 
RAOTe: ISR RS, OSKNOS *SELECT THE DRIVE 
18: Bis e 2, aR°CS >SEEK HOME 
2s: DEC RO ;GIVE DONE A CHANCE TO SET 
TSTB = ARPCS 31S DONE SET? 
BMI 3$ : YES-BRANCH 
HLT *DONE DID NOT SET AFTER A SEEK HOME 
BR 6$ *CHECK FOR LOOPING 
3: CLR RO 
5s: Inc RO 
ST 31S UNIT READY? 
BMI 4g YES BRANCH 
INC JSCYLA 
INC DSCYLA 
DEC aecyLA 
DEC asecYLA 
TST RO sHAS UNIT TIMED OUT 
BNE S$ NO-BRANCH 
HLT “READY DID NOT SET AFTER HOME SEEK 
BR 6S ; CHECK FOR LOOPING 
4§: TST JRPCS ANY ERRORS? 
EPL 6$ : NO-BRANCH 
HL ‘DRIVE ERRORS AFTER HOME SEEK 
6S: HOV 81$,LAD *SETUP LOOP ADDRESS 
MOV ;SETUP WORD COUNT FOR 10 SECTORS 
HOV SOUTBUF , BUF SETUP OUTPUT BUFFER ADDR 
CLR CYLINDER 
SE MOV sOUTEUF , RO GET BUFFER, § STARTING ADDR 
21S: | MOV CT 
MOV eYLIADER, (RO)+ i GENERAT "PATTERN SO THAT THE 
DEC Ri *THE FIRST WORD OF EACH SECTOR 
18: MOV DMA, (RO)+ “EQUALS THE CYLINDER ADDR AND 
DEC Ri *THE REMAINDER EQUALS THE HEAD AND 
BNE 1$ “SECTOR ADDR 
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ll aenae TEST |] seeee 
7 00901: o20714 CMPB oO saw1,OMA 
4 BEO 225 
020706 Inc OFA UPDATE SECTOR COUNT 
; 228: CLAS MA 
? sate 1S: ISR Re FUNCT sWRITE TEN SECTORS 
CLR RO 
23: INC RO 
105777 20622 TSTB gePCS 31S DONE SET? 
1 BMI 5 -YES 
TST RO TEST FOR TIMEOUT 
i She 3$ ‘BRANCH IF NO 
pe Hi - :DONE DID NOT SET AFTER WRITE 
020604 23: TST SRPCS sANY DEVICE ERRORS? 
1 BPL 6$ :BRANCH IF NO 
z HLT = *RPLIC STATUS ERROR AFTER WRITE 
1 SOS067 020666 6S: CLR s INCREMENT FLAG 
17767 O20600 012736 MOV DRPDA, RECS >GET DISK ADOR 
f ? 177760 BIC #177760,RECS | ;SAVE SECTOR ADOR 
7 Ol TST REC 
i BEQ g sBRANCH IF SECTOR = ZERO 
d0s067 012714 CLR EXPS 
1 HLT +] ;SECTOR ADDR IN RPDA DID NOT UPDATE 
005044 BR 4 “PROPERLY AFTER A TEN SECTOR WRITE 
SosDue 11776 ge0s50 012704 9S MOVB § SRPDAL,RECS GET THE HEAD 
116767 C67 012674 YO OMA+1 EXPS :SECTOR ADDR OUTPU 
7 000023 Ol26bs EXP *DID WE OUTPUT HEAD 23? 
1005 *BRANCH IF NO 
12660 CLR EXPS *RESET HEAD ADDR 
: 10667 aay HOV SP HORK “SET INCREMENT FLAG 
005104 7 012646 7$ INC E 
11 1eb7b7 Olet42 Olee42 8 CMPB 4 sdEXP$,, RECS sIS DISK HEAD ADDR CORRECT? 
1 1 BEQ 12s : H IF YES 
120 10440! HLT +1 *HEAD ADOR IN RPDA WAS INCORRECT 
p05 122 2 BR cs *AFTER TEN SECTOR WRITE 
ANE1SG 91776 Se0ueb O12626 128 MOV DRPCA, RECS >GET DISK CYLINDER 
Bosi3se 916767 Ol26i6 MOV CYLINDER, EXPS 
005140 7 020536 TST WORK sIS INCREMENT FLAG SET? 
1 at 4 ati BEG 135. :BRANCH IF NO 
reat: 7 anes 012576 CMP #626, EXPS ;WAS IT LAST CYLINDER? 
005160 1092 BNE 13§ ;BRANCH IF NO 
O05 ibe 12570 CLR XPS 
165 767 012564 012564 138 CMP XP§, RECS sIS DISK CYLINDER ADDR CORRECT? 
05174 001401 BEQ 3 * BRANCH IF YES 
176 104401 HLT +1 *CYLINDER ADDR IN RPCA IS NOT 
:CORRECT AFTER TEN SECTOR WRITE 
pns200 004000 O20420 SS: BIT #811, 9RPDS : INCOMPLETE ERROR? 
00141 BEQ "BRANCH IF NO 
005210 000015 020370 vB #15, SRPCS its HOME COMMAND 
005216 105777 020364 rst anpes -  SWAIT FOR DONE 





eee Oe 


f 


oH 
o 


wo 
~ 


Eee Ey Cl SERERFRARE GAAS AEA UTM Mauve Es eee eee 


eR LL 
; 
; 
i 
H 
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1 eeeaae TEST | senne 
gos2es 032777 100000 020374 118: BIT #815, dRPDS sWAIT FOR UNIT READY 
32 001774 - be 11$ 
005234 012767 OO474E 173540 108: HOV #4$,LAD ;SETUP LOOP ADDR 
pose 010710 JSR PC, DISBUF ;SETUP NEXT DISK ADDR 
le BR SEABLF WRITE NEXT SECTOR 
12767 OOSO00 020362 MOV #5000, WROCT RESTORE WORD COUNT 
15 020320 BIS 815, aRPCS ;SEEK HOME 
3 I " BP.’ ones WAIT FOR DONE AFTER SEEK HOME 
005274 hoe 020326 i JRPDS . 
505309 BPL 4 ;WAIT FOR DRIVE READY AFTER SEEK HOME 
1 025720 RDSECT: MOV #OUTBUF , RO 
005306 012701 o05000 MOV #5000, R1 
005312 o0S020 238: CLR (RO}+ sCLEAR THE BUFFER 
005314 00530 DEC Ri 
boo316 1 BNE 23$ 
007610 JSR RS, FUNCT ;READ TEN SECTORS 
000005 .WwoRD «5 
1 020254 TSTB = ARPCS 
BPL sWAIT FOR DONE AFTER READ 
o20246 TST SRPCS “ANY ERRORS? 
005340 109006 BPL ADHGT *BRANCH NO ERRORS 
005342 104400 HLT :STATUS ERROR AFTER A READ 
poss 036777 oyooco 920234 BIT #814, ORPCS WAS IT A DATA ERROR? 
1401 BEQ ADHGT :IF YES GO COMPARE DATA 
&R ADTERI 
1 995730 ADHGT: MOV SOUTBUF , RO 
12701 ADHGT1: MOV #400, R1 
005366 026710 Oedese2 CMP CYLINDER,(O) § ;IS CYLINDER WORD CORRECT? 
00101 ADERC BRANCH IF NO 
005720 TST (O)+ 
005301 DEC Ri 
026719 od20e42 SANHT: CMP DMA, (0) 31S HEAD-SECTOR WORD CORRECT? 
001016 BNE ADERR *BRANCH IF NO 
TST (0)+ 
1 1 C Ri 
eats , 000011 020224 aie #11,0MA 
ates BEQ ADTER 
005424 OGse67 O20c16 Inc DMA pe 
eae 16767 O20206 012316 ADERC: HOV CYL NDER, EXPS ;CORRECT DATA/ADDRESS 
ooeHie 16767 012306 ADERR: MOV DMA, EXPS ;CORRECT DATA/ADDRESS 
11067 012304 ADERC1: MOV (0), RECS * INCORRECT DATA 
005454 1 HLT “DATA COMPARE ERROR 
c00400 CMP #400,R1 sWAS FIRST WORD INCORRECT? 
001 BNE ADTER *BRANCH IF _NO 
004567 173574 JSR RS, PRINTS “PRINT MESSAGE 
b0s470 024075 MESI2 WRONG CYLINDER PROBABLY SELECTED 
4 7 920150 ADTER1: CLRB OMA 
76 000 oe0122 BIT #811, 9RPDS ;SEEK INCOMPLETE ERROR? 
1412 BEQ 1$ *BRANCH IF NO 
005506 112777 000015 o2007e2 MOVB #15. aRPCS "TISSUE HOME COMMAND 
005514 105777 O20066 TSTB 3s ARPES :WAIT FOR DONE 
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Bot OOeeSe NOU 100000 020076 
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28 Ore s«aBIS. ORPDS 
, ay 


1$: V #RDSECT, LAD 
SCOPE 
SR PC, DISBUF 
aR ROSECT 
BIT #810, daSWR 
8EQ ADT3 
INP RADT2 





;WAIT FOR UNIT READY 
;SETUP LOOP 


;SETUP NEXT DISK ADDRESS 
sCHECK NEXT SECTOR 

sLOOP ON TEST? 

;BRANCH IF NO 
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bodes Bit 3 TEST 2 Renee 4:18 PAGE €0 


-SBTTL eee TEST 2 enue 

ARE JAG FASS PY. ETI MEY BB BIG ORE 
NUMBERS CRO AFTER EACH SEEK VERIFY THE POSITION 

READING THE FiRSt iBBh ON THE CYLINDER AND COMPARING 

rey tee CYLINDER REQUEST 


012767 O00002 OCe0i04 ADT3: MoV #2, TESTNO 


GetencuRe 


: 


4 
017650 4S: aM + tae ;WAIT FOR UNIT READY 
o0s6S2 173014 38: MOV #WRCYL ,LAD ;SETUP UP LOOP 


COSSE4 
910 67 173466 JSR RS, PRINTS sPRINT MESSAGE 
3! ao MES 
1 16767 020072 173754 MOV TESTNO TTY 
ay Gee Gee drain Ee EER ORES RON arr 
gis peer poaoeS 11 RADT3: JSR PC, INIT : INITIALIZE VECTORS 
816 O0Sb22 904567 010742 J5R RS: DSKNOS ‘SELECT UNIT 
917 no56e8 7 020014 CLR mA 
918 7 CLR CYLINDER 
919 005636 012767 900001 017776 MOV #1, WROCT ;SET UP WORD COUNT 
005644 012767 025730 d20002 MOV sOUTBUF , BUF : SETUP BUFFER BDDR 
bosb52 i673 017766 025730 WRCYL: MOV CYLINDER, SHOUTBUF INSERT PATTERN 
7 007250 JSR RS, FUNCT Te PATTERN ON FIRST SECTOR 
005664 000003 .WORD 3 OF re 
O05666 105777 017714 | TSTB aRPCS :WAI FOR B BONE 
005672 100375 ‘ 8 
005674 005777 017706 TST SRPCS ;AND ERRORS? 
005700 1 BPL 1$ “BRANCH IF_NO 
o9s70e HLT - ‘DEVICE ERROR WHILE WRITING 
005706 022767 O00625 017730 1S: cHP #625, CYLINDER sBLL. CYLINDERS WRITTEN? 
Beesie pees]? oirzee Fic = EYLINDER 
preys | poeres 004000 017674 2 ia WEL 1 CaRPDS ;SEEK INCOMPLETE ERROR? 
ppess3 1412 Q 8 ; t BRBNCH ND 
005734 112777 o0001S 017644 MOVB #15, ORPCS :TSSUE Hore COMMAND 
bosrHe 017640 TSTB =. aRPCS *WAIT FOR DONE 
005750 
005756 
| 





PRP RSS SSR TGR SCORES RE MeN 


876 1Os00g SCOPE 
5770 O0S067 017650 CLR «CYLINDER 
01 7 0 000624 017704 MOV #624, WORK2 
7 ot CLR WORKY sINC = DEC FLAG 
yeaa 17652 017634 ADT32: MOV INBUF , BUF 
Soot 007110 ail JSR RS, FUNCT sREAD Ri. FIRST WORD OF THE 
1 017554 F TSTB aRPCS *WAIT FOR DONE AFTER READ 
100375 BPL 
005777 017546 TST SRPCS ANY ERRORS? 
190008 BPL 3$ ‘BRA H IF NO 
1 09 HLT - ERROR AFTER READING ONE WORD 
57 one 017616 017570 3: CMP JINBUF CYLINDER ;COMPARE DATA READ AGAINST CYLINDER 
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Pll aeane TEST 2 #28242 










PERE Bsa Teal tundccee cee cee eons 


po060S4 001407 BEQ S$ -BRANCH IF EQUAL 
16767 0175 11672 MOV CYLINDER, EXPS  ;CORRECT DATA 
064 17? ? Ol 11666 MOV JINBUF , RECS INCORRECT DATA 
72 104401 HLT +] :DATA COMPARE ERROR-PROBABLY WENT 
:TO THE WRONG CYLINDER 
006074 032777 ODYO00 oO17524 SS: BIT #811, dRPDS ‘SEEK INCOMPLETE ERROR? 
006102 901412 8EQ 2s ‘BRANCH IF NO 
006104 112777 000015 017474 MOVB 815, aRPCS ISSUE A HOME COMMAND 
O0b112 : 017470 i378 arPts ‘WAIT FOR DONE 
006120 g3e77" 100000 017500 4S: BIT B15, RPDS ;WAIT FOR UNIT READY 
obs 130 012767 006012 172644 2S: MOV #ADT32, LAD SETUP LOOP 
135 1 SCOPE 
006140 005767 017546 TST WORKY sINC - DEC FLAG 
O06 v4 | BMI 1$ 
146 017536 INC WORK3 sUPDATE LOW COUNT 
006152 016767 017530 017464 MOV WORK2, CYLINDER 
006160 052767 100000 017524 BIS #815 WORKY ;SET DECREMENT FLAG 
esta peers 017512 1S: BEC ROT 3g sDECREMENT HIGH COUNT 
Bpesag PIECES BISeON OL74SE MOY «WORKS, CYLINDER SCCe FLAG 
006206 pees es Bao TST WORKS” sDONE YET 
O0se12 001277 BNE ADT3e : BRANCH-NO 
14 032737 o02900 177570 BIT #810, a8SWR ‘LOOP ON TEST? 
O06222 901402 BEQ WRCK :NO 
006224 OO01E7 177366 IMP RADT3 : YES 
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-SBTTL x##2% TEST 3 exude 
TH S sing Ne of RHEE THE URTTE CHECK LOGIC AND 
HE HARDWARE TO 


017440 WRCK: 
173310 


RWRCK: 


233: 
1$: 


- WORD 


es: 
. WORD 


173132 
4$: 


025730 e21$: 


2. STNO 
INTS 
TESTNO, TT 
PC PRINTS 
FC , INIT 
S; DSKNOS 
EYL IROER 
toutdur BUF 
#400, WROCT 
R1, OUTBUF (R2) 
(R2)+ 
#400, R2 
1$ 
RS, FUNCT 
aRPCS 
DRPCS 
2s 


3$ 
RS, FUNCT 
JRPCS 
aRPCS 

4§ 

RS, PRINTS 


OUTBUF, TTY 
FC, ,PRIATR 


RO 
20$ 


Re 
#177777, , OUTBUF (R2) 


#400,Re 





FILL THE REMAINDER 


WHEN A PARTIAL SECTOR 
te creek PORTION A 
TING ZERO PATTERNS ARE_USED 
GIC AND TO VERIFY THAT A 
i URITE CHECK ERROR WILL OCCUR. 


;PRINT MESSAGE 


; TYPE _LOCATION-SUPRESS ZEROS 


Shi tia 
;SELECT UN 


;PATTERN FL 
; STARTING PATTERN 


;GENERATE TEST PATTERN 
UPDATE MODIFIER 

: HAS ney Ms FILLED? 
; BRANC 


H 
;MRITE PATTERN 


;WAIT FOR DONE 

;ANY DEVICE ERRORS? 

;BRANCH IF NO 

;ERROR AFTER WRITING ONE SECTOR 
;WRITE CHECK THE DATA 


;WAIT FOR DONE 


SBN ANEE pevice RRORS? 
: ERROR NOP TER WRITE CHECK OPERATION 
;PRINT MESSAGE 


; TYPE LOCATION WITH LEADING ZEROS 


;ARE WE FLOATING A ONE? 
BRANCH IF YES 
‘FILL BUFFER WITH ONES 


st ame MEMORY BITS IN CONTROLER 








RP1IC RELIABILITY | TEST NaCYIL 2 7 (732) O4-NOV-76 14:18 PAGE 23 
DZRPB.P1I * TEST 3 #* 
1041 O06460 001371 BNE 21$ 
id42 OO0&462 000407 8R 225 
1043 006464 O0S500e2 20$: CLR Re 
1048 GObYeb be 925730 S$: cL OUTBUF (R2) CLEAR OUTPUT BUFFER 
1046 oes gee7e 000400 che #400,R2 ENTIRE E BUFF FER CLEAR? 
1048 006502 004567 006426 2c: JSR RS, FUNCT HITE Oc eat DATA AND 
1056 boeeis ite777 017072 TSTB ARPS ;WAIT FOR DONE 
ibes DOEeLe 100393 000010 BIT 483, ARPER s1S WRITE CHECK ERROR SET? 
1053 006524 001011 | BNE 6S BRANCH IF 
1 SS AEP ass Wel senuuns—RHNT RSEIGEPPOR DUO vor sr 
1056 006534 Oe404e MES1O : 
1057 006536 010167 173020 MOV R1, TTY 
1058 006542 004767 172576 ISR BC, PRINTR ;TYPE LOCATION WITH LEADING ZEROS 
1066 popes O0s777 017032 6S: fat gRPCS sDID ERROR FLAG SET? 
1068 BpEeeE 04400 HLT i. ERROR FLAG DID NOT SET AFTER WRITE CHECK ERROR 
1064 popeee ongsog 006324 2: MOV #23$, LAD SETUP LOOP ADDR 
i 1065 006570 104000 SCOPE 
He Bees ee eo HFN 8 Oe 
thes DOEere i are 
1052 9806600 006101 ROL Ri ROTATE PATTERN 
1070 O06602 103402 BCS 10$ BRANCH IF COMPLETE 
1071 O06604 000167 177514 IMP 23$ 
i072 006610 012700 o00001 10$: MOV #1,RO SET PATTERN FLAG 
| 1073 006614 12701 077777 nov 8077777, Rl :SET NEW PATTERN IN RL 
ip7e DOeES4 { gs: we 
| 107% Dob5e6 Dobe0! : BER - sROTATE FLOATING ZERO PATTERN 
f. | BOEESY itaons 1OC0e BCC PATFIL sHAS ZERO BEEN FLOATED 
| ig Bpeese eats 177462 IMP 3$ : JUMP IF NO 
| 
| 1083 ; ABILITY OF THE RP1IC 70 CLEAR THE REMAINDER OF A SECTOR 
iB id CMU uae ce eUiot Eee eet: fe sae he 
| 1086 sRERD Back <fiN VER FIED. T HE FIRST THB WORDS SHOULD BE ONES AND 
1088 
| 1089 OO06642 012701 025730 PATFIL: MOV SOUTBUF ,R 
| 1030 OObGE46 012709 177777 HOV #177772, RO 
| 108s Goet ee 616024 1S: NOY i, (R1)+ ;GENERATE ALL ONES PATTERN 
1099 DEEN Spee? 06244 TSR Ee FUNCT WRITE SECTOR WITH ONES 
| 1096 006670 Bases WORD 3 ‘ ith 











007110 05067 016532 EOPTST: CLR DMA ;CLEAR DISK ADDRESS 


RP11C RELIABILITY TEST MACY11 27(722) O4-NOV-76 14:18 PAGE 24 
DZRPB.P11 aeaeee TEST 3 2208 
1097 rete fe 016710 TST aRPCS sWAIT FOR DONE 
1333 6 325 016702 cf QRPCS sANY DEVICE ERRORS 
He) Boesoe Ai TERROR AFTER WRITING ONE SECTOR ALL 1°S 
HB Bere dene os 
1103 O0671le 912767 OO00002 O1b722 2s: MOV #2, WROCT sSETUP FOR TWO WORD WRITE 
1104 006720 O04S67 006210 JSR RS, FUNCT WRITE TWO WORD 
1105 006724 o00003 .WORD 3 
11068 006726 105777 O166S4 TSTB 3s ARPCS ;WAIT FOR DONE 
1107 006732 100375 BPL ye 
1108 006734 016646 TST JEPCS ;ANY ERRORS? 
1108 006740 100002 SPL 4g *BRANCH IF NO 
1110 06742 104400 HLT sERROR ON ONE WORD WRITE 
Hi 006744 Oo04ss BR 3$ 
1112 006746 012767 OO0400 OIGESE 4S: MOV #4000, WROCT :SETUP WORD COUNT 
1113 006754 004567 006154 JSR RS, FUNCT *READ SECTOR 
; 119 O06 600005 .WORD 5 
il1S 006 1 016620 TSTB RFCS ) ;WAIT FOR DONE 
1118 006766 100375 BPL 4 
1117 006770 005777 Ol6612 TST IRPS ;ANY ERRORS 
1118 006774 190506 BPL S$ >BRANCH IF NO 
1119 006776 1044 HLT ‘ERROR AFTER READING ONE SECTOR 
11g0 007000 032777 O40000 O16600 BIT #814, dRPCS -WAS IT A DATA ERROR? 
| tel 007006 oo1401 BEQ 3 ;BRANCH IF YES 
' 1122 007010 000433 BR 3$ : 
| 1123 007012 022767 177777 O16710 SS: CMP #177777, 0UTBUF ;COMPARE FIRST WORD SHOULD BE ONES 
| ¥X o670e0 001410 BEQ 6$ BRANCH IF OK 
| TBs 012767 177777 010726 MOV #177777, EXPS 
| 1126 007030 O16767 016674 O107e2 MOV OUTBUF , RECS 
| 4127 007036 104401 HLT +1 sDATA COMPARE ERRUR ON FIRST 
| 1128 007040 o00417 BR 3$ *WORD READ 
| 1129 007042 012700 025734 6S: MOV #OUTBUF +4, RO 
| 1130 0070% 012701 000374 MOV #374, FL 
| 4131 00705e 005720 8$: TST (RO)+ sREMAINDER OF SECTOR SHOULD BE CLEAR 
| 1132 007054 001003 BNE 7$ *BRANCH IF NO 
/ 1133 007056 005301 DEC R1 
' 1134 007060 001374 BNE 33 
' 4135 007062 o00406 PQ 3$ - 
| 1136 007064 O16067 177776 OLDE&E 73: nov =2(RO),RECS 
| 41137 007072 905067 010660 CLR EXP 
' 1138 007076 104401 HLT +] ;DATA FOUND IN AREA OF SECTOR 
139 . *WHICH SHOULD HAVE BEEN CLEARED 
/ 1140 *BY A ONE WORD WRITE 
 JI41 007100 012767 OD&642 171674 3S: MOV #PATFIL, LAD *SET UP LOOP ADDR 
/ 4142 007106 104000 SCOPE 
Tg 
| das ;CHECK THE SETTING OF EO? WHEN TRYING TO WRITE BEYOND 
' 4146 ;THE LIMITS OF THE PACK. THE FIRST SECTOR OF THE PACK IS 
i 4447 *WRITTEN WITH ZER THEN A TWO SECTOR WRITE OF ALL 
| 1148 ;ONE’S IS ISSUED FOR CYLINDER 625, HEAD 23, AND SECTOR 11 
414g : ROR BITS SHOULD SET. THE FIRST SECTOR OF THE 
1150 *PACK IS CHECKED TO MAKE SURE IT IS STILL ZERO. 
41152 
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eeeee TEST 3 


016524 
028730 
025730 
000400 
005755 
016422 
016414 


1¢0000 


000002 
016316 
016310 
005574 
016240 


016232 


016342 
010364 


010354 


FRKEX 


016434 


016417 


016330 


016276 


016316 


010370 
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6S: MOV 
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- 


WORD 2 


2s: MOV 


4$: MOV 


- WORD 


S$: BIT 


- WORD 


B 
7$: MOV 


CYLINDER 
#400, WRDOCT 
SOUTEUF , BUF 
OUTBUF (RI) 
(R1)+ 
#400, R1 

1$ 

RS, FUNCT 
JRPCS 

JRPCS 

2 

33 

#1000, WROCT 
#625, CYLINDER 
#11,0MA 

#23. DMA+1 
#177777, Re 
R2, OUTBUF (R1) 
(Ri }+ 
#1000,R1 

4§ 

RS, FUNCT 
aRPCS 
#B1,ORPER 

c$ 


3$ 
#815, aRPCS 
6$ 


3$ 
#2, WROCT 


CYLINDER 
RS, FUNCT 


ORPCS 
SRPCS 

7g 

3 
OUTBUF , RECS 
RECS 


3$ 
EXPS$ 
+1 


;SET WORDCOUNT TO ONE SECTOR 
;SETUP OUTPUT BUFFER 


;CLEAR THE OUTPUT BUFFER 


;WRITE SECTOR ZERO WITH ZEROS 
;WAIT FOR DONE 


;ANY DEVICE ERRORS 
;BRANCH IF NO 
;ERROR AFTER WRITING SECTOR ZERO WITH ZEROS 


;SET_ WORDCOUNT EQUAL TO TWO SECTORS 
;SELECT CYLINDER 625 

;SELECT RECTOR 11 

;SELECT HEAD 23 


;SET OUTPUT BUFFER TO ONES 


sISSUE TWO SECTOR WRITE TO 
*CYLINDER 625, HEAD 23, AND SECTOR 11 
WAIT FOR DONE 


;DID EOP ERROR FLAG SET? 
BRANCH IF SET 

EOP ERROR FLAG DID NOT SET WHEN 
SWRITE OPERATOR EXCEEDS THE PACK 
DID THE ERROR FLAG SET? 

tBRANCH IF SET 

jERROR DID NOT SET AFTER GENERATING 


;CLEAR THE DISK ADDRESS 


;READ THE FIRST SECTOR OF THE PACK 
;AND_EXPECT TO FIND ZEROS 
;WAIT FOR READY 


;WERE THERE ANY ERRORS? 
;BRANCH IF 
;ERROR ENCOUNTERED Os oe READ 


tSET FIRST WORD OF 
S305 IST SECTOR STILL CONTAIN ZEROS? 
SSRANCH IF YES 


;ONTENTS OF THE FIRST SECTOR OF THE 
3ACK CHANGED AFTER FORCING EOP 
;ERROR, OPERATION PROBABLY 


noe ee - a ae ee eee SS eS 
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007110 


005476 
000100 


oocods 
016116 
002000 
100000 


007414 


015772 
015764 
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171370 


016164 


016202 


016122 


016124 


016072 


171254 


016050 


016100 


016040 
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;WRAPPED AROUND. 
3$: MOV #EOPTST,LAD 
SCOPE 


;CHECK THE ABILITY OF THE RP1IC 10 GENERATE A 
PROGRAM ERROR IF_A COMMAND IS ISSUED WHILE THE 
CONTROLLER IS BUSY. 


‘CLEAR THE CONTROLLER 


LOKOUT: MOV #1, ORPCS 
CLR CYLINDER ‘CLEAR THE DISK ADDRESS 
MOV O00 WROCT SETUP WORDCOUNT 
JSR RS, FUNCT *ISSUE A READ COMMAND TO GET THE 
.WORD 5 ‘CONTROLLER BUSY 
MoV #100,RO ’ 
1S: DEC RO sALLOW THE OPERATION TO PROCEDE AWHILE 
MOVB #5, JRPCS sISSUE READ COMMAND WHILE BUSY 
ISTE aRPcs WAIT FOR DONE 
BIT #810, RPER ;DID PROGRAM ERROR SET? 
BNE 2s ‘BRANCH IF SET 
HLT ?PROGRAM ERROR DID NOT SET WHEN A 
READ C WAS ISSUED WHILE 
a ‘a *THE DEVICE WAS BUSY 
2s: BIT #815, ORPCS ;DID THE ERROR FLAG SET? 
BNE 3$ “BRANCH IF SET 
HLT *ERROR FLAG DID NOT SET AFTER 
PROGRAM ERROR 
33: MOV #LOKOUT, LAD 
SCOPE 


; UNFORMAT Ug 4 oer SECTOR ON THE PACK. THEN READ IT BACK 

AND VERIFY READ AND WRITE HEADER OPERATIONS WILL 

; TRANSFER bata CORRECTLY. NOW THAT THE HEADER IS MIS FORMATTED, 
COMMAND TO SECTOR ZERO. THIS SHOULD RESULT 

STN SETTING HEADER NOT FOUND. THEN REFORMAT SECTOR ZERO. 


HNFCK: MOV #1 aRPCs ;CLEAR THE CONTROLLER 
CLR CYLINDER :CLEAR DISK ADDR 


MOV #OUTBUF , BUF ;SETUP BUFFER ADDR 


MOV #OUTBUF; RO 

MOV #1, (RO)+ 

MOV #1, (RO)+ 

MOV #1; (RO)+ 

MOV #3, WROCT ;LOAD WORDCOUN 

JSR RS, FUNCT ‘ISSUE WRITE HEADER COMMAND 
.WORD 14003 >TO MISFORMAT SECTOR ZERO 

iste JRPCS ‘WAIT FOR READY 

TST aRPCS sANY ERRORS? 

BPL 1$ *BRANCH IF NO 
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104400 
000440 


Braa8s 
5777 


005300 
015744 
015736 


040000 
000001 
010056 
Bie 
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005170 
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010000 
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100000 
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;ERROR AFTER ISSUING A WRITE 
SFORMAT COMMAND TO SECTOR ZERO 


i t3°UE READ_HEADER COMMAND 
ECTOR ZERO 
WAIT FOR READY 


;ANY ERRORS? 


BRANCH IF NO 
; ERROR WHILE READING THE HEADER 
OR ZERO 


BR ANCH_IF YES 


: CHECK DATA READ BACK 
ANCH a. NON COMPARE 
{UPDATE M ODIFIER 


END OF BUFFER? 
;GET BAD DATA 


DATA DID NOT VERIFY AFTER READING 
THE HEADER OF SECTOR ZERO 


;ISSUE WRITE TO SACTOR ZERO 


TIMEOUT SETTING OF DONE 
{DID DONE SET? 


; TIMEOUT? 


IF NO 
TIMED OUT WHILE WAITING FOR DONE 
sAFTER TRYING TO FORCE HEADER NOT FOUND 


‘BRAN pe NOT FOUND SET? 
HEADER NOT FOUND DID NOT SET. 5 


;DID HARD ERROR SET? 2 
;BRANCH IF YES 
;HARD ERROR NOT SET AFTER HIF 


;DIO THE ERROR BIT SET? 
sBRANCH IF YES 
sERROR DID NOT SET AFTER HNF 


;D1D DISK ERROR SET? 
: BRANCH 


HLT 
1S: ae ge FUNCT 
~WORD 14005 < 
TSTB = ARPS 
P .-4 
S SRFCS 
BPL 33 
HLT 
BIT u14, aRPCS 
38: MOV al, ,EXPS ;EXPECTED RESULT 
cs: CMP EXPS, OUTBUF (RO) 
BNE 45 
ADD #2, RO 
CMP #6,RO 
BNE cS 
BR 23 
4g: MOV OUTBUF(RO),RECS ; 
HLT +3 
23: MOV #HNFCK, LAD 
SCOPE 
HNF1: JSR RS, FUNCT 
.WORD 3 
CLR RO 
2s: INC RO 
TSTB = JRPCS 
BMI 1$ 
ING DHCYLA 
INC aaCYLA 
DEC aHCYLA 
DEC a#CYLA 
TST RO 
BNE 23 
HLT 
BF: 3$ 
1S: B:T #812, IRPDS 
BE 3 
HLT 
ER 3$ 
6S: HIT #814, ORPCS 
BNE 4 
HLT 
BR 3 
4g: BIT #815, ORPCS 
BNE 3 
HLT 
BR 3$ 
S$: BIT #80, IRPER 
BNE 3$ 
HLT 





;DISK ERROR “DID NOT SET AFTER HNF 
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RErIC RELIABILITY Test MACYLI E7722) O4-NOV-76 14:18 PAGE 28 
noée5, P17 ® TEST 3 seaee 
i321 01 rats OO7740 1707CE 3S: Mu WHNF 1, LAD 
1 Bt 2 SCOPE 
} 1907 HNF2: CLR RO 
} 101 5730 1$: CLR OUTBUF (RO) CLEAR BUFFE 
1 10} CO9 ROD #2,R0 fe A Te top ie1eR 
13e8 191 00500¢ CMP 86;RO IR BuFFE CLEARED? 
132, 9101 SNE l i8 ao Noa 
1328 0101 gg0003 Ossie MOV 83, WROCT 5 
1328 O10! a4 : JER RS" FUNCT tT ScuE WRITE HEADER COMMAND 
i330 9101 .WORD =14003 
1331 = 1 o1s4s0 TST8 aReCS sWAIT FOR READY 
lisse O10} SPL 
13335 C1014 o1sss2 TST specs sANY ERRORS? 
1334 310144 : BPL 2s : 
15 Bidive 1044 HLT sERROR WHILE TRYING TO FORMAT SECTOR ZERO 
i O101S0 Ole7€? o1007 170824 28: MOV sHNF2, LAD 
1332 610156 104000 SCOPE 
1339 sISSUE A SEEK COMMAND AND WAIT FOR DONE TO SET. THEN ISSUE @ WRITE 
1340 ‘COMMAND WHILE THE HEADS ARE STILL MOVING. THE RPLIC SHOULD 
14 [HOLD THE WRITE COMMAND TILL THE SEEK IS COMPLETE. 
isis 010160 012777 000001 O1S420 SKTST: MOV #1, dRPCS ;CLEAR THE CONTROLLER 
i3e5 10166 OO4SE7 JSR RS’ DSKNOS SELECT THE UNIT 
134s ett 005977 O15420 CLR aRPCA ; CLEAR THE CYLINDER ADDR REGISTER 
1346 010176 005077 oO1s416 ELR DRPDA :CLEAR THE DISK ADDR REGISTER 
1347 010202 112777 O0O011 015376 MOVB  a11, dRPCS * ISSUE A SEEK TO ZERO 
1m48 010210 105777 015372 TSTB. = aPC WAIT FOR DONE 
1349 910214 100375 BPL “4 
1250 61G216 632777 100000 OlS40e 1S: BIT #815, IRPDS sWAIT FOR UMIT READY 
1351 010224 001774 REQ 1$ 
1252 010226 012777 000300 015362 MOV #300, JRPCA sSELECT CYLINDER 300 
1353 i024 116777 it 015344 MOVE 811. dRPCS s1SSte SEEK 10 CYLINDER 300 
1254 01 1 01 TSTB) =-_ arPS WAIT FOR DONE 
1355 010246 100375 - 
1356 015250 012777 177777 015334 MOV 8-1, IRPWC om UP WORD COUNT 
1257 010256 112777 009003 15322 MOVE #3, aRPCS j ISSUE A WRITE WHILE HEADS ARE MOVUNG 
1358 O10c64 1 015316 TSTB = DRPCS WAIT FOR DONE 
1359 O10¢ 100375 BPL oy 
1360 pitsee 777 015310 TST aRPCS ANY ERRORS? 
1361 019076 100001 BPL 2s BRANCH IF NO 
1362 619300 104400 HLT * ERROR FOUND AFTER ISSUING A WRITE 
1363 ; COMMAND WHILE THE HEADS ARE STILL 
1368 MOVING AFTER A SEEK. 
1 010302 032777 CO4000 O1S316 2s: BIT #811, dRPDS I SEEK INCOMPLETE ERROR? 
1366 0103109 OOi412 BEQ *BRANCH IF 
1367 0103l2 112777 O0001S Ol1S266 MOVB #15. aRPCS ISSUE A HOME COMMAND 
1368 ot 105777 015262 TST8 =. art WAIT FOR DONE 
1269 01 50 BPL 4 
1370 1 777 100000 oO1Se72 4s BIT #815, RPDS sWAIT FOR UNIT READY 
A HE BPG cious woe os: HEE abst 
Ee Bi 104000 SCOPE 
1375 sCHECK THE ABILITY OF CLEAR TO TERMINATE AN OPERATION 
1276 “AND SET READY. 
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RE11C RELIABILITY TEST MACYI1 27(722) O4-NOV-76 14:18 PAGE 29 
DZRPB.P1L eeene TEST 3 saeee 
135 1 ? 006216 CLATST: JSR RS. OSKNOS SELECT THE UNIT 
$ ) 5 SeLe 
1 l Nees 015270 CLR mA :CLEAR DISK ADDR 
1 l ? CLR CYLINDER 
1 331 1 12767 a1 o1s2s2 MOY #1, WROCT :SETUP WORD COUNT 
1 1 12767 015256 MOV sOUTBUF . BUF :SETUP BUFFER ADDR 
1383 901 304567 004s32 sR RS, FUNCT sISSUE A WRITE COMMAND 
1384 01 WORD 
1385 Ol b1e700 ooo1co MOV #100,R0 
1385 10818 1S: DEC RO ;WAIT A WHILE THEN ISSUE A 
1387 1041 001378 NE 15 CLEAR C 
1388 O10414 11 000091 o1S1&4 MOVB #1, aRPCS *CLEAR THE CONTROLLER 
1389 108 105777 OISiE0 TS78 43s ORPCS :IS READY SET? 
1390 Ol 100401 BMI 3 *BRANCH IF YES 
133) 10430 104400 HLT SREADY DID NOT SET AFTER ISSUING 
i tA CLEAR COMMAND DURING A WRITE. 
1393 g1043e goon0s 23: RESET 
130 O10434 012767 010346 170340 MOV #CLRTST,LAD 
1 1395 bioie 404009 SCOPE 
13% bigwws 16767 015162 015230 HOY FLAG, WORK ;GET UNIT NUMBER 
isee BINEN ete oisze nes 
| [400 ote ? piesis s JUSTIFY UNI 
| 2401 b1oH7 042767 174377 015204 BIC 174377, WORK § ;CLEAR UNWANTED BITS 
/ 1402 010476 016777 01 015102 MOV WORK, JRECS *LOAD UNIT 
1303 G10804 008/77 015116 Ist REDS ;WAIT FOR UNIT READY 
| J4os Bi beis 1o0335 002009 177570 ert #810, deSuR 
' JM0E 010520 001402 BE MEMTST 
| 1407 010522 00017 175534 IMP RWRCK 
i 
] 


a eee eee ee, 
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DZRPB.P eeaee TEST 4 eae 

1403 -SBTTL sanee TEST 4 sueee 
tara TWO SEGMENTS. THE FIRST 
tai PART TEST THE BCCESSIBILITY OF MENORY WITHOUT 
tie TTI NG MEMORY MANAGEMENT. EACH LOCATION 
ft a TS ESSE os Teen Li sca 

(NOT TO EX . 
iis :DATA IS THEN WRITTEN ON THE DISK. THE BUFFER IS 
tate BACK AND VERIFIED 
1413 STEERED a Te Ee ABER abDRESS Bits Ree" HEBteD 

Pd 
tat 0526 000004 : 84, TESTNO 
419 01 012767 015142 MEMTST: MOV cat cee 
feo Glossy Govsey I7tees "Mahan, 
TESTNO, TTY 
1422 010542 016767 015139 171012 MOV lait iaielien ecperen anon 
ies Dives ; t 015104 sav Aga SETUP TTERRTION COUN TNO FEN. MaNnG. 
tise test: : 7 Araeeo 015042 BIT #500, FLAG ?BK WITH MEM. MANAG. OR MANAG. 
tise pi gees 1 BNE «8 BR IF TRUE ele ae 
is pier ne 77750 015066 MOV 8-30, PASSC "IF MEMORY MANAGEMENT DO ONL e 
is i i 7 1146 1S: CLR MEX 5 CLEAR DRIVE EXTENDED MEMORY 8 
is pi tepa ppaves Boease RMEMT: JSR PC INIT SINT IALIZE 
aT GIBID Gprcsy SHOUD cusois BTS HEEPGS OREN tvcven rest 
iis pees ied Nae oer: Cog SBUTBOE RO :DETERMINE SIZE OF BUFFER IN SYTES 
ize ieee OLA She RO s CONVERT TO WORDS 
tae Bi peda ties pono} Bay RO’ UROCT, SAVE WORD ORB OUNT OF TRANSFER 
1438 010644 Ol2702e 025730 73: MOV UF , sé totem oc hee tak 
133 ste pteao3 _—s 18: nov RRS CAT Ion CONTAINS ITS ADDRESS 
tae bt DEES BB bes 3 011064 inp oo ase sHAS ENTIRE PATTERN BEEN GENERATED? 
we Give ee 730 014760 aby SOUTBUF BUF *SET UP BUFFER ADDR 
445 010674 005067 014746 CLR 
iS Hie Bee Bie Gok EASE re soness parem 
i449 15718 onan 014670 _ ?o1p JRPCS sWAIT FOR DONE 
iso IGris ioter 014662 ee Secs sANY ERRORS? 
005777 ; : 
ise Hee {Ba ne ~ ERROR AFTER. WRITING ADDR PATTERN 
58 3$ 

1454 O1 000446 : BR Se os 
fee Gibe Gm Gy OE, * 
1457 Oiorie 00502 108: CLR (R1)4 CLEAR THE BUF 
1 10744 eee 
14E0 oig § ante] 004160 aoe Aes eunct sREAD ADDRESS PATTERN 
tues iGres OOo 014624 — iste ORPCS ;WAIT FOR DONE 
1462 010756 105 Ist aRP 
1463 010762 100375 
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® TEST 4 # 






















C764 005777 014616 qst agPcs s ANY ERRORS? | 
16070 ALT Ee RCR aPrER READING. ADDR PATTERN 
10774 040009 O14694 BIT #814, IRPCS 1S THIS a BATA ERR 
11002 OL BEQ 4 *BRANCH IF YES 
11 BR 3 
11006 912702 025730 4$: MOV #OUTBUF , Re 
1i01¢ 615203 MOV R2,R3 COMPARE T B00R PATTERN 
11014 &$: CMP R3, (R2)¢ DATA ¢ 
11016 051005 BNE a3 $3 a IF NO 
11 005763 TST (R3)+ 
11022 010722 CMP R2, MEMSIZ 31S ENTIRE BUFFER VERIFIED? 
Lies 01772 BLOS b§ “BRANCH IF NO 
11 ae? 006720 cs: MOV R3, EXPS 
11036 016267 177776 OO06714 MOV -2tR2), RECS 
11044 1O4sOL HLT +] ;COMPARE ERROR UTILIZING ADDR PATTERN 
11046 o1e76? D1OEY4 167726 3S: HOV ; #7$,LAD :SETUP LOOP ADD 
11056 000527 BR NONEX 3GO DO REST OF TEST 
;THIS PORTION IS FOR MEMORY MANAGEMENT 
11060 032767 O00400 OL4S44 RMNENT: BIT 865, FLAG iB HACHINE? 
11970 004767 010670 JSR PC, PARINT $NA KIPARS 
11074 7 010754 16; rep pC’ PARTING NT _K POR ur 
11100 oo 7 011000 J5R PC’ PARREG pereretT BUF”, “WROCT™” 
11104 012700 040000 cs: MOV #40000, | teats ADDRESS OF BUFFER 
11110 016701 014526 MOV WRDCT, RI *GET BUFFER 
11114 910010 2s: MOV RO, (RO) *MOVE ADDRESS TO LOCATION 
11116 005720 TST (RO)+ *BUMP LOCATION 
ill 005391 DEC Ri : DONE? 
111 1374 BNE 2s :BR IF NO 
11124 005067 014516 CLR DMA 
11130 005067 014510 CYLINDER 
11134 005567 003774 ait JSR RS, FUNCT sWRITER ADDRESS PATTERN 
Lite 105777 014440 : TSTB  aRPCS sWAIT FOR DONE 
ilies jopoos OPH a Ogre Oe IE OT 
1156 1 HLT “ERROR WRITTING ADDRESS PATTERN 
11160 b167 011104 167614 HOV #5$, LAD *SETUP LOOP ADDRESS 
11170 01 3S: MOV #40000, RO ;START OF BUFFER 
11174 016701 O14442 MOV WROCT, R1 *BUFFER SIZE 
Lise eet 4§: C R {R0)+ sCLEDR BUFFER 
11 1 BNE 4§ *BR IF NO 
11208 004567 003722 68: JSR RS, FUNCT *READ THE ADDRESS PATTERN 
11314 ead 014366 ‘ iste JRPCS sWAIT FOR DONE 
11 100375 4 
ll2e2 005777 014360 TST DRPCS ANY ERRORS 
11226 00011 BPL 7§ BR IF NO 


———-~.-as=s 


ee ee, + ee en rneess a> oe eee 


———— 
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1520 011230 ori0D 

1Se Cit 3e Ose 

1s22 OLieN9 hlao4 

1363 pt igs 1 

] ll ] 

eB He Bae 

ie Has See 

1831 Oll 005301 

1 1l } 

1 ll 1 

1 ll 1 

1S83S 011304 014067 

1536 011310 104405 

1S37 Oll3le 012767 

1$38 Bit 1 

1539 Olisee 005720 

1840 011324 000756 

1541 Q011326 032767 

1542 011334 001657 

1543 

Leas 

1844S O11336 032767 

1546 O11344 0010092 

1847 O11346 005037 

1S4B8 Bi laos 12767 

1843 Oll 12767 

1550 O11366 004567 

Les 1136 

1 ll 1 

1 11400 1 

1554 011402 032777 

1555 011410 001002 

1556 O114le 104400 

1557 O11414% 000413 

1558 011416 032777 

155S$ 0114e4% 001002 

1560 011426 104400 

i) HS Bi 

12e¢ btn’ 1001 

1564 O1144e 104400 

Hees OL Ole7e? 

isee 

1Sé8 

1g69 

1570 

1571 O114S4 012767 
7e 011462 012767 

011470 005737 


aan 


040000 
011206 


040000 
014360 
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014346 
167532 


167462 


014276 


014266 


014262 
014266 


014214 


014162 


O14146 


167330 
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HLT sDISK ERROR 
BIT #814, RPCS :DATA ERROR? 
BEQ ? ‘BR IF YES 
HOV #6$,LAD :SETUP LOOP ADDRESS 
7S: MOV #40000, RO :START OF BUFFER 
MOV WROCT Rl *BUFFER SIZE 
9S: MOV RO. Re 
CMP (RO)+,R2 sDATA GOOD? 
BNE 8$ BR IF DATA NO GOOD 
TS (R2)¢ 
DEC RI ; DONE? 
SNE 95 -BR IF NO 
BR 10$ :CONTINUE THE TST 
gS: MOV R2, EXPS 
MOV -(RO) RECS 
HLT +5 sDATA COMPARE ERROR 
HOV #9$,LAD :SETUP LOOP ADDRESS 
TST (RO)+ sTEST REST OF BUFFER 
sig 93 TEST MORE 
10$: BIT #89, FLAG *LAST PAGE? 
BEQ 1$ ?BR IF NO 
sCHECK THE SETTING OF NON EXISTENT MEMORY FLAG IN RPER. 
NONEX: BIT #86, FLAG sIS MEMORY MANAGEMENT ON? 
BNE 4 ‘BR IF NOT ON 
CLR aeSRO IF ON TURN OFF 
4$: MOV $1. WROCT :SETUP WORD COUNT 
MOV #160000, BUF *LOAD ADDR TO FORCE NON EX MEMORY 
JSR RS, FUNCT :ISSUE A WRITE COMMAND AND 
.WORD 63 jEXPECT NON EX 
1378 aRPCS :WAIT FOR READY 
BIT #82, IRPER sDID NON EX MEMORY SET 
BNE 1$ :BRANCH IF SET 
HL ve "NON EX MEMORY DID NOT SET 
1S: BIT #814, IRPCS sDID HARD ERROR SET ON NON EX MEMORY 
BNE 3$ *BRANCH IF SET 
HLT od ‘HARD ERROR DID NOT SET 
38: BIT $815, dRPCS sDID THE ERROR FLAG SET AFTER NCN EX MEMORY 
BNE 2s *BRANCH IF SET 
HLT *ERROR FLAG DID NOT SET 
2s: MOV #4$, LAD 
SCOPE 
: IF MEMORY MANAGEMENT IS AVAILABLE CHECK THE EXTENDED MEMORY ADDRESS 
EXTTST: MOV 8EXTTRP, 4 ;SETUP TIMEOUT TRAP 
MOV #PRI7,6 
TST aeSRO MANAGEMENT IS NOT 


;1F MEMORY 
;AVAILABLE THE PROGRAM WILL TRAP 
;AND TRANSFER TO END OF THE TEST 
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157% O11474 012767 012236 166302 MUV 
1577 011802 Ole737 007600 172356 MOV +7600 G, SacrPan7 ; OPEN 1/0. REGISTERS 
1578 11819 005037 i7e340 CLR ask FREE FIRS 
1573 HIBS 1g? ? 17eaN2 Hoy ted Sak Pe t ENABLE Pe ono 4K 
teat 1Es5 Bt 5335 ead 172300 MOV sapossee 1 DSKIPDRO  ;SET KIPDRO=RW UP 400 BLOCKS 
1582 011536 916737 177406 MOV #400256. -400+UP+RW, J#KIPDR SET KIPORI=RW UP 400 BLOCKS 
1583 011544 012737 177406 172304 MOV 8400%256. -400+UP+RW, J#KI SET KIPDRe=RW UP 400 BLOCKS 
i 11588 18737 7740 17231 MOV Rete --400+UP+RW: JHKIPOR? :SET KIPDR7=RW UP 400 BLOCKS 
12d pit 127 haaapt 7757 MOV s TURN ON MEMORY MANAGEMENT 
1586 011566 Ole702 O40000 MOV *R2 EQUALS BASE ADDR 
1582 1157e Ole7ig 177777 cemh 78: HOV t17777%, (Re) j INSERT PATTERN INTO 200000 
tees Bi eGs 005067 5 ts ts CLR mex “ fe ETENDED MEMORY BITS FOR CONTROLER 
tea piel pisces 604512 — oR 3 puncte SETUP Pu AORBS ON DISK. RPBA 
1532 Oligee 000003 .WORD 3 . ;STARTS AT 177777 TO FORCE CARRY 
1534 O11be4 105777 013756 TSTB ARPCS WAIT FOR READY 
lee? Sriese a0e772 cane Gr arcs 
ea GES deep a EES Sg TE 2 sro we 
| i600 11644 036777 000020 0913734 1S: BIT aB4, QRPCS ed SHOULD HAVE SET? 
| 18e O11638 1oo HL mn ;MEXO DID NOT SET 
! 
: R (R2) sCLEAR LOCATION 200000 
| 160s Ot eee ppases 003246 i ir Re“ FUNCT zRERD THO O WORDS INT INTO LOCATIONS 
1607 Oti676 10577 013712 go STB aRPCS ;WAIT FOR READY 
| $808 btteve doses? 013704 TST —-aRPCS SANY ERRORS? 
| 1810 011702 100002 BPL 4§ BRANCH IF NO 
| 1611 011708 104400 HLT as ERROR OFTER READING 2 WORDS 
| i615 OLi716 a3e773 000020 013670 4S: BIT BBY, BRPCS sDI0 I EXD SET? 
hie 
leis Ot 726 4 AT {MEXO DI Nore SET AETER 2 WORD 
| 4el7 out 12 177777 ss: CNP 8177777,(R2)fhRG ATA READ Ih INTO LOCATION 
tele OL 739 hig . ‘ BEQ bs sR DATE C eerie - BRANCH IF YES 
| teo8 sheer Bt ioe? 606014 seman: HOY (Re). ete 
165 tipa4 104401 HLT $1 ;DATA COMPARE ERROR AT 200000 
E52 Bee BR IF RECEIVED=0 - LOCATION WASN’T ACCESSED 
1623 O11750 QOCO4O 013630 6S: BIT ag5, aRPCS MEX] CLEAR 
yy 1 1401 Q H 
| 625 011760 104400 HLT *MEXL IS SET - SHOULD NOT BE 
| - tat i 7? 011572 167012 2: HOV #7$,LAD SETUP ERROR LOOP 
000 172344 EXTT1: MOV W000 JsKIPAR2 
Be a eee Ta ee Te ae 
| 463i 022010 012767 177777 013636 ; MOY #177777, BUF ‘SETUP BUS ADDR 
| 
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003112 JSR RS, FUNCT 
. WORD 3 
; 013556 STB aRPCS ;WAIT FOR READY 


3 
coe 


bb + BB pee 


] Seemunsesens 
fe 


Re 
013550 S @RPCS ;ANY ERRORS? 
4$ ;BRANCH IF NO 


z 
8 


HL 
BR es ;ERROR AFTER READING 2 WORDS 
000020 013534 4S: SIT faa ;D1D ig A al 


UIE 


Ol 
= 
1 
16 1 i S 
16 1 DI CLEAR AFTER 2 WORD 
teu Of 5 pooo4o 013520 5s BF Bs. aRPcs PO MEXI oer? ee 
1645 Bt Pe BNE 103” BRANCH ir YES 
164 O1 104400 HLT :MEX1 DI NOT SET WITH A TWO WORD 
1647 ‘TRANSFER STARTING AT 377777 
1648 S 000441 BR 2S 
1649 012074 o05012 10$: CLR (Re) ;CLEAR LOCATION 400000 
1650 012076 OO04S67 003032 JSR RS, FUNCT *READ TWO WORDS STARTING AT 377777 
165 Oieite p000eS .WORD 25 ’ 
1652 012104 105777 013476 TSTB = ARPCS ;WAIT FOR READY 
1653 012110 100375 BPL : 
1654 Olell2 005777 013470 TST SRPCS ;ANY ERRORS? 
1855 Olell6 100002 BPL 5 *BRANCH IF NO 
1 Oieted 104400 HLT ERROR WHILE READING TWO WORDS 
1 lelee O0042S BR 2g 
1658 Oleley 032777 OO002D O13454 118: BIT #84, JRPCS “DID MEXO CLEAR? 
1659 Olelse o01402 BEQ 125 sBRANCH fF YES 
1660 012134 104400 T *MEXO DID NOT CLEAR AFTER 2 WORD 
1661 012136 000417 BR 2$ *READ STARTING AT 
i662 012140 O22712 177777 12: CMP #177777,(R2) | 3WAS DATA READ INTO LOCATION 4oO0000 
| 1663 016144 001407 BEQ 6$ CORRECTLY? - BRANCH IF YES 
1664 Ol214% 012767 177777 o0seDe2 MOV #177777, EXPS 
| 1665 012154 011267 O0S5600 MOV (R2), RECS 
bee Oielbg 104401 HLT sDATA COMPARE ERROR AT 400000 IF 
1667 Oiel62 BR 2s *RECEIVED=0 - LOCATION WASN’T ACCESSED 
1668 012164 032777 OOOO4O OC13414 &S: BIT #85, ARPCS ‘DID MEX SET? 
1669 Oiel7e I BNE 2s 
1670 012174 1 HLT ;MEX1 DID NOT SET AFTER 2 WORD TRANSFER 
1671 :STARTING AT 377777 
| 1672 012176 012767 012004 166576 2S: MOV #7$,LAD SETUP ERROR LOOP 
1673 Olee04 104000 SCOPE 
1674 O1 000413 BR EXTRP ;CLEAR MEMORY MANAGEMENT 
1675 Ol2210 005267 o134S2 EXTEND: INC PASSC ‘INCREMENT ITERATION COUNT 
| 1676 Ol2214 001402 | BEQ 1$ 
| 1677 O12216 000167 176362 IMP RMEMT 
| 1678 iccee 032737 002000 177570 1S: BIT #B10, J#SWR sLOOP ON TEST? 
1679 012230 001420 BEQ paTat 
1680 Ol2232 OO001E7 176346 IMP RMEMT 
| 1682 012296 032767 O00100 013366 EXTRP: BIT #86, FLAG USING MEMORY MANAGEMENT? 
| 1683 O1ee44 001402 BEQ EXTTRP : YES 
| 1684 leeds 177572 CLR JeSRO *NO TURN IT OFF 
| 1685 ot 12706 000500 EXTTRP: MOV #STKPTR, SP RESTORE STACK 
| 1686 Ol2e56 012767 000006 165520 MOV #6,4 
| 1687 O12e64 005067 165516 CLR 
| 
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1888 Ole2e70 000747 BR EXTEND 


en eee eee eee 
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1889 

1639 

i 

1683 

1694 

169 

ig? 

1698 

1699 

1700 

1508 122 

1703 1 

1704 012304 

1705 012306 

in Blea 

1708 12324 

1708 D1s330 

1710 012334 

1711 012336 

1715 Biss 

i714 Dls3e0 

7p loses 

119 31830 

c 

1718 Ole376 

1726 Oieuie 

1721 Oie414 

17e2 Ole4e0 

1723 Olevee 

1724 Ole4e4 

1725 012430 
| 1726 012434 
| ise ens 
| 1788 Gloves 
iB ee 
+a 1 
| 1733 Ole47e 

aes 

1736 012506 

1737 O1e510 
| 1738 012514 
| 1739 012516 
| 1740 012520 
| 174) 012526 
| 1742 012530 
| 1743 012534 
| Im 012536 
' 
| 


* TEST S # 


AN 


013376 


167246 


013170 


013202 
013152 


177570 


166254 


013066 
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-SBTTL ###e% TEST S xxxxe 


sHRETE, WATT SRST Unt fe OPERATIONS ARE PERFORMED ON ON THE DRIVE 
21S READ. if THE DATA IS TO Be CORPARED “T GE INEUT Bet ER Ec ere CLEARED 
T IS 15S THE DATA HF COMPARED WHILE READ 


*RIGHT AFTER READ BATA 
:15 IN PROGRESS. DONE TO IMPROVE EFFICIENCY THIS SEQ 
15. REPEATED FOR THE ENTIRE PACK SURFACE FOR EACH OF THE 22 PATTERNS 
sERR RORS OCCURING USING RANDOM SEEKS DURING THE WRITE CHECK OR ARE 
*RECOVERABLE AFTER FIRST RETRY DURING READ OR ARE ELIMINATED BY 
sISee IN GING RANDOM SEEKS ARE PROBABLY DUE TO VIBRATING HEADS 
DATAT: MOV #5, TESTNO 
ISR RS; PRINTS ;PRINT MESSAGE 
MOV TESTNO, TTY 
JSR PC. PRINTS s TYPE LOCATION-SUPRESS ZEROS 
eR Euta Albee exten seh RY BITS IN CONTROLER 
RDATAT: HOY PATNU, RO GET PATTERN 
ROR RO 
MOV RO, J#SWR ;DISPLAY PATTERN NO. IN USE 
CLR CYLINDER 
MOV #PRI4, DePSW sENABLE INT SYSTEM 
MOV SWROCT , WROCT 
MOV #DKINT; VECTOR ;SETUP DISK VECOTR 
MOV #340, ISTATUS 
BIT #500; FLAG iB WITH MEM. MANAG. OR NO MEM. MANAG 
JSR PC, PARINT *INITALIZE KIPARS 
NOP i NEEDED FOR CONFORMITY 
JSR PC, PARREG *SETUP "MEX". “WRDCT”, “BUF™ 
DATP: JSR PC’ PASEL i CENERATE Patt 
BIT #500, FLAG °8K MEM. MANAG. OR NO MEM. MANAG? 
BEQ 1$ *BR IF NOT TRUE 
MOV #OUTBUF , BUF * SETUP ,BUFFER ADDR 
1S: BIT #814. FLAG “WRI 
BEQ WRICK BRANCH IF NO 
LDAT: JSR PC, OPDSEL ? ANY OPERAT OR ADDR PARAMETERS? 
JSR : *GO DO A RANDOM SEEK 
see: SR RS, FUNCT WRITE WITH INTERRUPTS 
BIT #812, D4SUR sDETERMINE HOW TO WAIT FOR INT 
ISR PC, NPR sGENERATE WORSE CASE NPR CYCLES 
1$: WAIT 
23: HOV ‘ #LDAT,LAD ;SETUP LOOP ADDR 
JSR PC DISBUF ;PREPARE NEW DISK ADDR 
WRICK: BIT #813,FLAG ;WRITE CHECK? 
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DOZRPB.P11 ee2e TEST S 424% 

1745 012544 0014 BEO DREAD BRANCH IF_NO 

1746 Ol 004767 003350 3S: JSR PC, OPDSEL ANY OPERATOR ADDR PARAINETERS? 
1747 O1 004567 02356 JSR RS; FUNC WRITE CHECK THE DATA 

1748 012556 000107 .WORD 107 

1749 012560 032737 010000 177570 BIT 8812, 2#SWR DETERMINE HOW TO WAIT FOR INT 
1750 012566 0601003 BNE 1 

1751 b1e579 904767 007454 JSR PC, NPR sGENERATE WORSE CASE NPR CYCLES 
1752 012574 000401 BR 2s 

1753 O1e5/6 000001 13: WAIT 

1754 012600 012767 O12546 166174 25: MOV #3$,LAD ;SETUP LOOP ADDR 

1755 ol 1040 SCOPE 

1756 iss 003344 JSR PC, DISBUF sPREPARE NEW DISK ADDR 

es bi Sete Boose? 010000 013006 DREAD Bt $12 FLAG 

1759 piceie ati BNE ig : + BRANCH IF YES 

1760 012626 000167 oD00444 IMP MSTR :GET AROUND READ 

1761 Oleb3e 032767 OO0S0O 012772 1S: BIT #500, FLAG 38K WITH MEM MANAG. OR NO MEM MANAG. 
1762 012640 001006 BNE I 

1763 Oles42e 004767 907116 ISR PC, PARINT  INITALIZE KIPARS NEEDED 

1764 01264 000240 NOP FOR CONFORMITY 

1765 012650 O00240 NOP 

1766 Ole6S2 004767 007226 JSR PC, PARREG ;SETUP “BUF”, WRDCT™, “MEX” 

1767 012656 005067 013040 READI: CLR enta *INITALIZE READ COUNTER 

1768 Ol2bbe 7? 013004 ESH: CLR RDERR “CLEAR READ ERROR COUN 

1769 012666 004767 003230 SR PC, OPDSEL “ANY OPERATOR RODR CANANETERS? 
1770 012672 004767 O02722 JSR PC’ SEEK :G A RANDOM SEEK 

1771 012676 OOSO&7 171576 DSKRD: CLR INtFLG ‘CLEAR. THE INTERRUPT FLAG 
1772 012702 O04S67 O02226 JSR RS, FUNCT *READ THE DAT 

1773 012706 000105 .WORD 105 

1774 012710 032737 001000 177570 BIT #89, J8SWR COMPARE DATA? 

1775 Ole716 OO1411 BEQ 1$ BRANCH IF YES 

i Ole7ed 032737 010000 177570 BIT #812, deSWR :DETERMINE HOW TO WAIT FOR INT 
1 12726 001003 BNE 

1778 012730 004767 007314 ISR PC, NPR ;GENERATE WORSE CASE NPR CYCLES 
1773 012734 O00447 BR 3$ 

1780 012736 o0000 2S: WAIT 

1781 012740 pooda BR 2 

1782 Ole742 016700 012674 1S: MOV WROCT, RO sCLEAR THE INPUT BUFFER 

Hel Gems Glee Gta my ral 

1785 Bt 6 paste peosaD 012646 BIT #500, FLAG ;8K WITH MEM. MANAG. OR NO MEM. MANAG. 
17 eee Seay 040000 any #00000 Rl Li I OF OF MEM. MANAG. OUT BUFF 
ire pte7e8 Bees BL 4g: TST ype TEST WORD COUNT IS IT AT ZERO? 
1789 012774 100422 BMI 10$ *BR IF CLEAR IS FINISHED 

1790 012776 I CLR (R1)+ 

1791 01 3000 021 €LR (R1)+ 

1792 O1 1 CLR (R1)+ 

1793 013004 005021 CLR (R1)+ 

1794 013006 005021 CLR (R1)+ 

1795 013010 o05021 CLR (R1)+ 

179% 013012 005021 CLR (R1)+ 

1797 013014 005021 CLR (R1)+ 

1798 013016 005021 CLR (R1)+ 

1799 013020 005021 CLR (R1)+ 

1800 013022 005021 ¢LR (R1)+ 





a a = ne ee 
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1801 013024 005021 CLR (R1}+ 

1802 013026 005021 €LR (R1)+ 

1803 013030 O21 CLR (R1)+ 

1804 013032 005021 CLR (R1)+ 

1 1 LR R1)+ 

1 1 UB Re, RO sDECREMENT WORD COUNT 

189 i 2 apuve? 4750 10$ FoR pe COMPAR “COMPARE THE DATA 

188 iets 12534 T5TB = DRPCS WAIT FOR READY 

1810 01305¢ 003 BPL <4 

1811 13054 767 166160 33: TST ERRFLG ;WERE THERE ANY ERRORS 

1812 013060 001424 BEQ S$ *BRANCH IF NO 

1813 013062 ? 012604 INC RDERR *UPDATE ERROR COUNT 

1814 613066 O22767 O00024 o1es76 CMP #20. , RDERR *MORE THAN a ERRORS? 

1815 013074 1416 BEQ c$ *BRANCH IF YES 

1815 013076 767 O00012 o12S566 CMP $10. ,RDERR 15 THIS TENTH ERROR? 

1817 013104 001274 BNE DSKRD :BRANCH IF NO 

igis 013106 1 15 012472 MOVB #15. aRPCS "HOME THE HEADS 

1819 013114 105777 O12466 TSTB. 3s aiRPRS WAIT FOR DONE 

1820 013120 100375 BPL 4 

1821 Ol3le2 005777 012500 TST RPDS 

1822 013126 100375 BPL 4 ;WAIT FOR READY 

1823 013130 O00b62 BR OSKRD 

1824 013132 O0S7E7 012534 S$: TST RDERR 

1825 013136 001417 BEQ 6S 

1826 013140 022767 000013 o12524 CMP #11.,RDERR WAS READ ERROR STILL THERE AFTER A RECALL 

1827 013146 002003 BGE 9g : 

18c8 013150 Ole767 ocooode 012544 i MOV #2, CNTA ‘YES DON’T TRY TO READ AGAIN UNLESS LOOPING 
| 1830 013156 oOO4SE7 166102 JSR RS, PRINTS PRINT MESSAGE 

1831 013162 023753 MES7 

i832 013164 016767 O12502 166370 MOV RDERR, TTY 

1833 013172 004767 166160 JSR PC. PRINTS ;TYPE LOCATION-SUPRESS ZEROS | 

1834 013176 005067 012470 6S: CLR RDERR “CLEAR READ ERROR COUNTER | 

1835 013202 012767 Olebé2e 165572 MOV #ESH, LAD LOOP ADDR 

1836 013210 104000 SCOPE 

1837 Ol32le 005267 012504 INC CNTA s INCREMENT READ COUNTER | 

1838 013216 7 000003 012476 CMP #3, CNTA D0 3 READS? 

1839 013224 OO1216 BNE 4 *BR IF NO | 

1840 013226 032767 OO0S00 012376 BIT #500, FLAG *BK NEN, MANAG. OR NO MEM. MANAG. 

1B4L Oize34 001018 BNE 8S ;BR_IF TRU 
| 1842 013236 001000 012366 BIT #89, FLAG ;LAST PAGE TRANSFERED? 
| 1843 0132044 001402 BEQ 7 *BR IF NO 
| 1844 01324 004767 006512 JSR PC, PARINT *GO REINTIALIZE KIPARS 
' 84S 013252 004767 006576 73: JSR PC; PARINC 3G0 INCREMENT KIPARS BY 1 
| 1846 013256 004767 006622 ISR PC; PARREG GO SETUP "MEX", "WRDCT™ SUF 
| 847 013262 767 O0eb7e 8S: ISR PC’ DISBUF GET NEW DISK ADDR 
| 1848 013266 01 BR 11$ | 
| 1849 013270 o00402 BR MSTR | 
' 4850 013272 000167 177360 11$:  JMP READ 
| 4851 013276 032767 OODD4O 012326 MSTR: BIT #85, FLAG ;LOOPING ON AN OPERATOR ADDR? 
| 1852 013304 o0140e2 BEQ 1$ 3NO CONTINUE 
| 1853 013306 000167 177116 JNP DATP :YES 
| 1854 013312 005767 012314 1$: TST FLAG 
| 1855 013316 100002 BPL 2s UNDER PROGRAM CONTROL 
| 1856 013 000167 001034 IMP MULCHK OPERATOR SELECTED PATTERN 


a a mn a rn a a a a a 





ee 
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DZRPB.P11 eeREH TEST S 2xe%% 
18S? 013324 082767 oO00002 012320 2s: AUD #2, PATNL sINC PATTERN INDEX 
1858 013332 atte 000036 012312 CHP #36, PATNU “PATTERNS EXCEEDED? 
1 1334 ia 76762 INP RDATAT NOT 
tee MEE ABs ea 3$: CLR PATNU *LAST "PaTTER USED 
1862 013352 032737 002000 177570 BIT #810, J#SWR ;LOOP TEST? 
1863 013360 901402 -  BEQ RANE X :NO. oo” TO. RANDOM TEST 
1864 613 OCO1g? 176742 JNP RDATAT * YES 


an eee eee ee ee 
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ZRPB.P1 eeexe TEST & #42 
ieee .SBTTL *4*#% TEST & #444 
186 : THIS IS A RANDOM ADDRESS AND DATA TEST. 
1868 SERRORS OCCURING WHICH ARE RECOVERAGLE AFTER THE FIRST RETRY ARE PROBABLY 
: ;DUE TO VIBRATING HEADS AFTER A SEEK, TRY DISABLEING RANDOM SEEKS. 
1871 013366 912767 000006 012302 RANEX: MOV #6, TESTNO 
187@ 013374 o04s67 165664 JSR RS, PRINTS sPRINT MESSAGE 
ra 
1874 Ol Bese 012270 166152 MOV TESTNO, TTY 
ie Gina Geet Geese dee fearie? JUTE BENG SENG BFS n comacu 
18 pt ied ppaoeS 003216 RRANEX: JSR PC, INIT 
1878 Oi sHe4 032767 000505 o12200 BIT #500, FLAG 8K WITH MEN. MANAG. OR NO MEM. MANAG. 
t ; - 
1874 pia pO 10e3 006324 a PC, PARINT tINITALIZE ALL KIPARS 
1881 013440 o00240 NOP *NEEDED FOR CONFORMITY 
1882 013442 O00240 NOP 
1883 ot 44 012767 000034 012200 1S: MOV #34, PATNU 
1884 0134S2 012767 175200 Olecos MOV #2200 PASSC —_ ; SET _ UP PASS COUNT 
1885 012460 012737 000200 177776 V #PRI4. duPSH 
1886 O13466 012767 000700 O12146 WRLG: MOV #700, WROCT ;SET UP WORD COUNT TO 1+ SECTOR 
1887 013474 016767 Olel42 Olecoo MOV wRoct WORK 
1888 013502 012701 025730 MOV #OUTBUF .R 
1889 013506 022767 012116 BIT #509, FLAG ;9K WITH MEN. MANAG. OR NO MEM. MANAG. ? 
1890 013514 OO! BNE 4§ F TR 
1831 013516 012701 o40000 MOV #40000, R1 ig TART OF OUTBUFF WITH MEMORY MANAG. 
1892 O135¢2 004767 003420 48: ISR PC, RANDOM GENERATE RANDOM PATTERN 
| 1894 DIESE 004767 166032 JSR ANDS sGENERATE TWO RANDOM NOS. 
1895 013532 016767 166144 oO12142 MOV CORUM. WORK 
189% 013540 016767 166134 012136 MOV HINUM: WORK1 
1 13548 042767 177000 O12126 BIC #177000, WORK 
1898 013554 022767 000625 Ol2le0 CMP #625, WORK sFORM RANDOM CYL ADDR 
1899 013562 002761 BLT 
1900 013564 016767 Ol2112 o1ense MOV WORK,CYLINDER  ;SAVE IT 
1901 013572 042767 160360 012104 BIC #160360, WORKL 
1902 013600 122767 O00010 012076 CMPB $10.1 WORK ;FORM RANDOM SECTOR ADDR 
1903 013606 101003 BHI 2 
| 1804 013610 042767 000010 012066 BIC #10,WORK1 
1905 013616 122767 000023 012061 2s: CMPB 0s: #23, WORK1+1 
| 1905 013624 101003 BHI 3 sFORM RANDOM HEAD ADDR 
1907 013626 142767 000014 012051 BICB #14, WORKI+1 
| 1908 013634 016767 012044 012004 3$: MOV k ;SAVE DESK ADDR. 
- 1809 013642 012767 025730 012004 RANLOP: MOV #OUTBUF , BUF :SETUP OUTPUT BUFFER 
| $930 013650 032767 OO0S00 011754 BIT #500, FLAG 38K WITH MEM. MANAG. OR NO MEM. MANAG. ? 
134 013656 001003 BNE 13$ -BR IF TRUE 
| 1912 013660 012767 O40000 011766 MOV #40000, BUF “START OF OUTBUFFER WITH MEMORY MANAG. 
| 1913 013666 004767 001726 133: JSR PC, SEEK 309 A RANDOM SEE 
| 1914 013672 004567 O01236 JSR RS, FUNCT WRITE RANDOM DATA AND 
' 1915 013676 000103 .WORD 103 t ENABLE INTERR 
1916 013700 032737 010000 177570 BIT #812, JUSWR ‘DETERMINE HOW ro WAIT FOR INT 
| 1917 013706 001003 BNE 2S 
| 1918 013710 004767 006334 ISR PC, NPR ;TEST WORSE CASE NPR CYCLES 
| 1918 013714 o00401 BR “4 
| 4920 013716 00001 2S: WAIT 
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BO4 


aeeee TEST & teaee 


ne: o12°67 013642 165054 48: Hy BRANLOP, LAD :SETUP LOOP SDDR 
37 S67 001200 73: 3s RS, FUNCT sWRITE CHECK THE DATA AND 
3734 97 wWORD 107 ‘ENGBLE INTERRUPT 
$738 bee of 010005 377570 Bi #212, d8SuR “HOW TO WAIT FOR INT? 
3746 3378 O0b276 SR PC, NPR sTEST WORSE CASE NPR CYCLES 
Oo! 35 +3 

4 BO0CL 1: WalT 
3756 peree 013720 1es01& &§: ov #73, LAD sSETUP LOOP ADDR 
3764 104 SCOPE 
3786 005067 011730 CLR CNT sINITALIZE READ COUNTER 
3772 005087 OL1E74 gS: CLR ROERR *CLEAR READ ERROR COUNTER 
3 004767 OO1E1E ISR PC, SEEK "DO A RANDOM SEEK 

005067 170472 118: CLR INTFLG 

4006 SO4SE7 OOlize ISR RS, FUNCT sREAD RANDOM DATA AND 
“Ole 010 .WORD 105 sENABLE INTERRUPT 

14 61 909709 _—t MOV #700,R0 :SET UP TO CLEAR INPUT BUFFER 
4020 Ol2702 900020 MOV #16. Re 
4024 012701 730 MOV sOUTBUF , 81 ;START OF INPUT BUFFER 
4030 ? peecaa o11s74 BIT #500, FLAG > BK WITH MEM. MANAG. OR NO MEM MANAG? 
4036 901002 BNE 15$ :BR IF T 
so40 01270: o40000 ot MOV #40000,R1 :START OF OUTBUF WITH MEM. MANAG. 
a 1 CLR (R1)+ 
4046 1 €LR (R1)+ 
4080 005021 CLR (Rl )+ 

005021 CLR (Rl)+ 

4054 905021 CLR (Rl) 
Woes DOS0St Rtas 
“dee peesst CLR (R1}+ 
4064 905021 CLR (R1)+ 
4066 005021 CLR (Rl)¢ 
4970 005021 €LR (Rl)+ 
4972 005021 LR (R1)+ 
4074 005021 CLR (RI }+ 
4076 905021 CLR (R1)+ 
4100 ops0el CLR (R1)+ 
4102 1 CLR (Rl )+ 
4104 160200 SUB R2,RO sCECREMENT THE WORD COUNT 
4106 001356 BNE is : 
#110 be? 37 010000 177570 BIT #812, 34SHR ‘HOW TO WAIT FOR INT? 
iE eid 006124 J PC, NPR ;TEST WORSE CASE NPR CYCLES 
4124 OOC4O1 ER 6$ 
4126 000001 3S: WALT 
4130 032737 001000 177570 ES$: BIT #89, aeSWR ;COMPARE FOR ERRORS? 
ie 901006 NE ge ;BRANCH IF _NO 
41490 - 040000 011440 I #814, IRPCS : 
4146 001002 BNE 33 BRANCH IF YES 
450 767 00364 ISR PC, COMPARE °C DATA FOR ERRORS 
41 767 16 9S: TST ERRFLG : 
4160 001424 BEQ 10$ *BRANCH IF NO 
4162 7 011504 INC ROERR :UPDATE ERROR COUNT 
4166 022767 600024 011476 CMP #20. , ROERR 20 ERRORS YET? 
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DZRPB.P1L eeeee TEST & sees 
1377 g1siz4 14) . BEQ 10$ sBRANCH IF YES 
i978 014176 ee 000012 O1l4ee CMP #10. ,ROERR 1S THIS TENTH ERROR? 
1879 014204 001276 si BNE "BRANCH IF NO 
1980 01 112777 900015 011372 MOVB #15. ORPCS ; ISSUE COMMAND 
1981 O14214 1 11366 TSTE arpts “WAIT FOR DONE 
1982 014220 1 SPL <4 
1983 Diese 011400 TST SRPDS sWAIT FOR READT 
$904 914226 100375 BPL 4 
i88S 014230 doos64 5R i1g 
1985 0142 67 011434 108: TST ROERR 
1887 014236 001417 BO 21§ 
1988 O14240 O22767 000013 011424 CMP #11. ,ROERR ;DID RECALL HELP RECOVERY 
1989 O14246 GE 4 *BR IF YES 
1890 14250 012767 o0001i O11444 MOV 89. ,CNTA NO, DON’T TRY READING AGAIN 
1331 14256 14S: 
i 14256 OO4SE7 165002 JSR RS, PRINTS sPRINT MESSAGE 
1993 014262 03753 MES7 
19% 9 O14ec4 Oib/6 011402 165270 MOV RDERR, TTY 
' 3995 O14272 767 Rew JSR PC. PRINTS sTYPE LOCATION-SUPRESS ZEROS 
199% 014276 O60S067 011270 21$: CLR RDERR “CLEAR READ ERROR COUNTER 
1997 o1430e O1e76/ 013772 164472 MOV #85, LAD SET UP LOOP ADDR 
1998 014310 1 Sc 
1999 014312 005267 011404 INC CNTA s INCREMENT READ COUNTER 
2009 14516 022767 l2 011376 CMP #10. ,CNTA *DONE 10 DISK READS? 
| 2001 614324 ieee BNE S$ :BR IF NO 
2002 914326 pease 011334 INC PASSC INCREMENT PASS COUNT 
| 2003 o14332 Soi iGe BEG 128 : H IF DONE 
| 3004 014334 167 177126 IMP WRLG : CONTINUE 
| 2005 914340 7 011306 128: CLR PATNU 
2006 014344 002000 177570 BIT #810, J8SWR ;LOOP ON TEST? 
| 2007 14352 001402 BEQ  —MULCAK 3NO 
| 2008 O14354 000167 177040 INP RRANEX LOOP 
ite sCHECK FOR MULTI DISK MODE 
i poll IF IN MULTI DISK MODE REPORT “END” 
| e0le IF LAST DISK ON SYSTEM HAS BEEN 
2013 EXERCISED. 
| BO14 
| pos 
| O16 014360 005067 211262 MULCHK: CLR 
2017 14364 905067 011254 CLR CYLINDER sCLEAR ADDRESS REGISTERS 
18 O14 032767 011234 BIT #811.FLAG "ARE WE IN MULTI DISK MODE 
' p019 014376 dol4ee BEQ REPOEN REPORT "END" 
| p0eo giao 01676 0 011274 MOV FLAG, WORK *WHAT DISK ARE WE ON 
-p0el §=6014406 7 177743 Olleb6 BIC #177743,WORK IF LAST DISK ON SYSTEM 
| pO0e2 O14414 026767 Ollebe 011240 CMP WORK, DSKNOR ;REPORT END 
| Boba Biwwea O¥e7e7 00034 011200 Bie 434 FLAG 
| 025 014432 Bap4b4 BR REPOEN sREPORT “END™ LAST DISK 
e0et 14434 062767 O00004 011170 INDRVE: ADD #4, FLAG INC. DISK NO. 
14442 ood%2e ge EXxtpP sEXERCISE DISK 
0c 14444 164330. - REPOEN: INC ICNT INCREMENT PASS COUNTER 
14450 7 16461 SR RS, PRINTS *PRINT MESSAGE 
| 2030 014454 0235 MES *REPORT END OF PASS 
' $631 O14456 015767 164316 165076 MOV ICNT, TTY 
—- 2032 «OL 4464 767 16466 PC, PRINTS ;TYPE LOCATION-SUPRESS ZEROS 
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DZRPB.P11 * TEST & * 

2033 O14470 013701 900042 MoV 2842, R1 
2034 wuz erties BeO EXTPP 
soe tesa 004711 MEXIT: JSR PC, (RL) 
2037 O14=02 NOP 

2038 14504 NOP 

14506 900240 NOP 

gH O14510 OO167 167032 EXTPP: IMP ADTST 
2042 


ooo 


04 


sEXIT TO THE MONITOR 


;RECYCLE 





;GET MONITOR RETURN wie 


:BRANCH IF NOT UNDER MONITOR 
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DZRPB.PLI TEST 7 RaRee 
Ela -SBTTL xanae TEST 7 seeee 
2045 ;TEST THE ABILITY OF THE RPLIC TO SENSE POWER FAILURE 
:AND TO HOME THE HEADS. N POWER IS REST 
>THE CYLINDER RDORESS IS is he STED FOR RO. AFTER TYPING THE MESSAGE 
*REGUESTING POWER TO BE TURNED 0 PROGRAM GOES INTO 
204 :A LOOP READING FROM THE DISK. OrER OWER IS RESTORED 
20s0 *MEMORY IS CHECKED TO SEE THAT THE DISK DID NOT PUT ANY 
e031 :JUNK INTO MEMORY WHILE POWER WAS GOING DOWN. 
2053 
2054 014514 012708 900500 PFTST: MOV aSTKPTR, sp 
2055 014520 012767 O1S104 163276 MOV PFD SET UP POWER FAIL VECTOR 
2056 014526 012767 000340 163272 MOV SPRIP 26 3LOCK OUT I NTERRUPT 5 
2057 014534 7 902030 ISR RS, OSKNOS “SELECT THE UNIT 
2058 14=40 1 000625 011050 MOV 8625, JRPCA :SELECT CYLINDER 62S 
2053 O01 000011 611932 BIS #11, aRPCS > ISSUE SEEK COMMAND 
2060 O145S4 b1e700 025730 MOV sOUTBUF . RO 
2061 014560 01 025252 1S: MOV #25252, (RO)+  ;FILL MEMORY WITH CHECKERBOARD 
2062 bee 7 005160 CMP RO, MENSIZ : PATTERN 
e083 14570 101773 BLOS)6=s«1S 
O1Ne72 O1e767 g00625 011044 HOV 8525, CYLINDER 
Spee Diveey piste? pARsOs 011030 Soy BUG. wroct 
2067 O14612 012767 025730 011034 MOV SOUTBUF , BUF 
2068 Oivbed 105777 010762 TSTB aRPCS sWAIT FOR DONE 
5090 Biuese foees? 010774 fet —saRPDS |WALT FOR UNIT READY 
2071 014632 100375 BPL <4 
2072 014634 004567 000274 ISR RS, FUNCT sWRITE 1 SECTOR OF CHECKERBOARD 
2073 014640 000003 .WORD 3 
2074 Ol4E42 | 010740 TSTB  aRPCS sWAIT FOR READY 
2075 O14646 1 BPL a4 
1 l 15, . 
2076 14650 00000 010730 BIT #815, ORPCS ANY ERRORS? 
i 2077 O14656 001401 BEQ 2s 
| 2078 O1660 104409 HLT sDEVICE ERROR ON WRITE 
2078 014662 012767 O14514 164112 2S: MOV #PFTST,LAD 
| 080 B16 70 g000 SCOPE 
2081 biNe douse 164366 SR RS, PRINTS ;PRINT MESSAGE 
2082 014676 023672 MESS *HAVE POWER TURNED OFF 
2083 014700 004567 000230 3S: J RS, FUNCT *GO INTO A LOOP READING 
2084 014704 090005 “WORD § *THE DISK SURFACE 
2085 014706 1 010674 TSTB  a@RPCS 
208 O14712 100375 BPL 4 
2087 014714 000771 BR 3$ 
| cos OB sAFTER MACHINE IS POWERED DOWN AND UP CONTROL 
Sat 1S TRANSFERRED HERE. 
014716 012777 O00001 Oo! PFT1: MOV #1, ORPCS ;CLEAR THE CONTROLLER 
| 2083 014724 016767 010702 10780 MOV —- FLAG, WORK ;GET UNIT NUMBER 
| Shee BieSa BoeBe? o1o74e GbR MORK 
shee 14740 BOeDE? Bora ROR WORK 
| 2087 014744 000367 010732 SWAB WORK 
| 2098 014750 042767 174377 010724 BIC #174377, WORK 
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eeaae TEST 7 seen 
14 777 010720 o10622 MOV WORK, IRPCS sSELECT THE UNIT 
17a boss? toes TST JRPDS 
14 1 BPL PFT 
14772 010632 TST aSUCA ;SELECTED CYLINDER SHOULD BE ZERO 
14 407 BEQ 1§ 
eas 7 002752 7 CLR EXPS$ 
15004 917767 O10620 o02746 MOV JSUCA, RECS 
15012 HLT +1 sHEADS DID NOT RESTORE TO 0 
15014 BR 3 :ON POWER FAILURE 
15016 012700 025730 1S: MOV SOUTBUF , RO 
1S0ee 720 OeS252 4§: CMP #25252,(R0)+ § ;DID MEMORY RETAIN PATTERN ON PF 
l 1004 BNE 3$ *BRANCH IF NO 
15030 020067 004714 C RO, MEMSIZ 
15034 001272 BNE 4§ 
15036 00041 BR 2s 
15040 012767 O25252 002710 3S: MOV 825252, EXPS 
150% 016067 177776 002704 MOV -2( RO), RECS 
15054 1 HLT + sCONTENTS OF MEMORY CHANGED AFTER PF 
15056 OO4SE7 164202 JSR RS, PRINTS :PRINT MESSAGE 
15062 023655 MESH :PRINT MEMORY LOCATION 
15064 010087 164472 MOV RO, TTY 
15070 004767 164250 = JSR PC’ PRINTR sTYPE LOCATION WITH LEADING ZEROS 
12 QO4SE7 164164 JSR RS, PRINTS ;PRINT MESSAGE 
15109 025573 END ‘END OF TEST 
15102 000000 HALT 
:POWER FAIL TRAP HANDLER 
15104 012767 015114 182712 PFD: MOV #PFU, 24 ;SET UP POWER UP VECTOR 
1Slle BR PFD 


;POWER UP TRAP HANDLER 


S114 012767 000026 i62702 PFU: MOV #26,24 ;SETUP TRAP CATCHER 

Slee O0S067 i6e2700 CLR 

Si26 Ole706 000500 MOV sSTKPTR, SP ;RESTORE STACK 

S132 000671 BR PFT ; VERIFY POWER DOWN SEQUENCE 
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may) 
Ree ##% SUBROUTINES # 
-SBTTL ### SUBROUTINES ### 


fturu 
— boo 
638 | 


sTHIS ROUTINE OUTPUTS THE FUNCTION FOUND AT 
S11 :THE CALL + 2. 
14 
4 T: JSR RS, DSKNOS s SELECT THE UNIT 
sii pats aes ited 010452 spo say DMA. JRPDA :SETUP DISK ADDR REG 
sie Bless piesre pioded Siouae HOY EVAINGER,GRPCA SETUP EVLIIGER AOR REG 
sis i2i?3 se Bt oas4 bodes MOV WROCT, IRPWC SETUP WORD COUNT 
2148 1215s 005477 010416 NEG IRPWC :COMPLIMENT WORD COUNT 
2148 015174 9011567 do0dee wy (RS).FNCT sGET RECS FUNCTION 
2150 015200 062705 y | ; 
5204 FNCT *ADD EXTENDED MEMORY BITS 
123 biesis Pee58s Sced Bose aE Ect RFCS _ SQUTPUT THE FUNCTION 
2153 015220 900205 
2154 OlSe22e o00000 FNCT: 0 
| 2155 
sites RP11 DISK INTERRUPT HANDLER 
2158 
S224 O0S06 DKINT: CLR ERRFLG sCLEAR THE ERROR FLAG 
5133 bisea0 vied perges ; TST aRPCS TEST FOR ERROR 
| S161 Ol 1 
T JUMP IF NO ERRORS 
| 2162 015236 000167 000316 IMP INTEX j JUMP RRORS ag 
cies biesuc poetes bnadon — r3! Roe A : t site ire EIRST ERROR ATTEMPT? 
| sie pt ese5 nee 000020 177570 a #84, J#SWR YPE ALL ERROR ATTEMPTS? 
| Bie? tee 001522 BEQ DKIL BRANCH IF 
| B1e8 Btesea 104400 2S: HLT *STATUS ERROR AFTER INTERRUPT 
| 5153 pt esse rae — ote petite - ‘Bowen fe RET TTING 
ste Beste eOS eave JSR _—-RS, PRINTS :PRINT MESSAGE te 
| e172 O1 024101 ESI scene Wl GIVE # OF READ ATTE 
| etre tea Baases Segaee e4es0 JSR —_—-PC. PRINTS s TYPE LOCATION-SUPRESS ZEROS 
te 015316 BOGE? 163716 3S: MOV SP, ERRFLG 
0270 000266 : RPCA, INTL sGET CYLINDER ADDR 
ae pt esse reed ste 000256 = Oy JRPDA’ INTO GET HEAD AND SECTOR ADDR 
5336 042767 160360 000250 BIC #160360, INTO  :CLEAR UNMANTED BITS 
| at bis a 000001 010252 BIT #80 ORPER iH 1 aN al ADOR ERROR? 
«SHEE Bieses poleee noo017 00232 BRP ENTO 115 SECTOR = T0 0 
2183 015362 O014 BEQ DECTK :YES = H 
| 2184 315364 i oo0224 DEC INTO “BACK UP COUNT 
| ste pte: eae 000037 000215 DECTK: BITB #37, INTO+ sIS HEAD = TO 0 
| p187 O1 biG Q pecty *YES = BRANCH 
| 2188 O1 TDeaEe 000207 CB —sCIINTO#1 *BACK UP HEAD 
| 2189 DiSHOs 052767 O00011 o00200 BIS #11, INTO SET UP SECTOR 
' 2190 015414 
16 ae 3 011411 000170 DECCY: MOV #11411, INTO 
te Biease eee Boo1ee DEC INTL 
_ 2193 015430 REDAC: 
: 
H 
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boaeS. Pit eee SUBROUTTHES ee 


sige pieusy bewis So Ree eee TEE ORT EYCINBER ADOR 

136 pease peddle 000154 164116 MOV INT1, TTY , 

1 psu’ 06 JSR PC. PRINTS sTYPE LOCATION-SUPRESS ZEROS 

198 915s ? 142 CLR INT 

2199 015454 116767 000135 000134 MOVE - INTO#1, INT 

2200 O01 7 163576 JSR RS, PRINTS ;PRINT MESSAGE 

2201 Ol A MESIS *REPORT HEAD ADDR OF FAILURE 

2202 015470 016767 OO0l22 164064 MOV INT1, TTY 

2203 015476 004767 1.2658 JSR PC, PRINTS sTYPE LOCATION-SUPRESS ZEROS 

gen 1 116767 106 000106 MOVB —sINTO, INT] 
1551 7 1835 JSR RS, PRINTS ;PRINT MESSAGE 

g208 015514 136 MESI6 ‘REPORT SEC ADDR OF FAILURE 
biSee4 pieces eee _—— MCR BT TTS TYPE LOCATION-SUPRESS ZEROS 

550 15530 nee 001000 010070 DKI1: BIT 889, JRPDS 1S DRIVE UNSAFE? 

2210 055% 001401 Q +4 

2211 O01 oo0000 HALT ;DRIVE UNSAFE 

2212 015542 032777 902000 O100S6 BIT #810, IRPDS >SEEK INCOMPLETE? 

2213 015550 001403 BEQ INTEXT “BRANCH IF COMPLETE 

2214 O1555e 112777 900015 o10026 MOVE 815. JRPCS :RECALIBRAT 

2215 O1 105777 O10022 INTEXT: TSTB aRPtS 

e216 015564 100375 BP 4 ;WAIT FOR DONE 

221 O155b6 005777 010034 TS RPDS 

2218 Ol 100375 <4 ;WAIT FOR READY 

2219 015574 005767 o04676 TST BCKFLG “DID WE COME FROM BACKGROUND TEST? 

2220 015600 001402 BEQ : IF NO 

2221 O15602 012716 oe2464 MOV #NPRRET,(SP)  ;MODIFY RETURN ADDR 

2222 O15606 010667 166666 1S: MOV SP, INTFLG :SET INTERRUPT OCCURRED FLAG 

2223 015612 o00002 RTI 

sose 015614 of0000 INTO: OO 

cece 0i5616 000000 INT1: 0 

2228 sTHIS ROUTINE IF SWITCH 07 OFF ISSUES A SEEK RANDOM YET NOT DISTROYING 

2229 *THE CYLINDER UNDER TEST 

5530 015620 105737 177570 SEEK: TSTB  dsSWR sISSUE A RANDOM SEEK? 

2232 015624 100534 BMI SEEND :BR IF 

2233 015626 004567 ISR RS, DSKNOS “SELECT THE UNIT 

2234 015632 905767 163402 TST ERRFLG *ARE WE LOOPING ON ERR 

2235 015636 001031 BNE 2s *BR IF YES-DO SAME SEEK AS THE ERROR 

223% 015640 Ob2767 123455 O100S2 1S: ADD #12345S,SEEK1 GET A RANDON NUMBER 

2237 O15bu6 2767 177000 O10044 BIC #177000,SEEK1  ;CLEAR OUT UNWANTED CYLINDER BITS 

2228 015654 passee 010036 CMP #625, SEEKI :VALID CYLINDER NUMBER 

ooag pieces IESKE Ol SY CSEEK1.=(SP) _—:BUT-NEM-CYPENOER ON STACK 

sea pt epee EDIE BED SUB CYLINDER, (SP)  :CREAT A DIFFERANCE ON STACK 

2242 015674 100405 BMI 75 *BR IF DIFFERANCE IS - 

2243 015676 Oele6e7 o00200 CMP (SP), #200 1S DIFFERANCE BE THEEN CYLINDER AND RANDOM CYL 

oo4y GREATER THAN CYLINDERS 

2245 015702 100006 BPL 8S YES, CLEANUP STACK AND CONTINUE 

2246 015704 005726 9S: TST (SP)+ NO. CLEAN OFF STACK 

2247 015708 4 BR 1$ GET NEW CYLINDER RANDOM NUMBER 

2248 01571 1 177600 7$: CMP (SP), #-200 

2249 015714 {00401 - BMI 8$ BR IF DIFFERANCE GRATER THAN 200 CLYINDERS 





= ne Eee 


RPLIC RELIABILITY TEST NAC 732) 
D2RPS.PIL y Bloroutines + 
2250 ous7i6 00772 
ee tee tine me 
eget 
teoue OLES77 BOTH Baseae 
S528 Bleeds Biglee 0Geae Dosey 
ees3 1 5777 000100 007616 
5569 1 277 O20011 007610 
5560 015776 OO0001 
e261 016000 005777 o07602 
$525 Biebpe «tpaaa0 
5564 016010 032777 OO4000 007570 
BEES O16016 901006 
ges O16020 O3e777 001000 007600 
S5e8 pie0s8 | Spa000 
3269 016032 OO0410 
5570 016034 
e271 C1634 OQusE? 163224 
5675 Bios bier? oo7ese 163512 
Sere CT TeD eee tsROe  oo7so4 
2276 016062 105777 007520 
5555 BiEneR Aneoe 
016070 007532 
2579 16074 100375 
A 
Bein : 
Sees DIEIbe Aree? oo747e 
584 Ol6ll2 012677 OO7464 
228s 16116 Gobe07 
Pad 
5599 
5589 
3} 
2292 016122 032767 OOD040 007502 
2293 016130 001001 
5594 016132 
5595 16134 016767 OO7474 oO7S02 
ee tus tine Bea Be 
SSaq Bieiee Aopen? 
5599 
5500 
5301 
5302 
5303 


a ee 


4$: 
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BR S3 
gs: TST (SP)+ 
: MOV JVECTOR, -(SP) 
MOV JSTATUS, -(SP) 
MOV #SEKDON, AVECTOR 
MOV #340, aSTATUS 
3S: MOV SEEKI  IRPC 
MOV #-1, aRPDS 
BIC #86’ ORPCS 
BIS #20011, dRPCS 
WAIT 
TST aRPCS 
PL 4 
HL 
BIT #811, ORPCS 
BNE c$ 
BIT #89, IRPDS 
BEQ c$ 
HALT 
BR 6S 
S$: 
JSR RS, PRINTS 
MES14 
MoV SEEK1, TTY 
JSR PC PRINTS 
é$: MOV #15. SRP: 
TSTB Sppts 
BPL “4 
TST SRPDS 
BPL <4 
BR 3$ 
TST ORPDS 
BPL 
MOV (SP) +, STATUS 
MOV (SP)+; JVECTOR 
SEEND: RTS PC 
SEKDON: RTI 





; CLEANOFF 
‘Save VECTOR 
;SAVE PRIORITY 
SETUP TRAP FOR RANDOM SEEK 


;SET pan CYLINOER 
CLEAR ATTENTIONS 
;CLEAR_INTERUPT DONE 

;SEEK INTERUPT ON ATTENTION 


; ERROR? 
:BR_IF_NO 
: DISK in 
j SEEK I 
R IF Sek INCOMPLETE 
UNSAFE? 


FILE 

;BR IF NOT UNSAFE 
FILE UNSAFE 

G0 DO A HOME SEEK 


;PRINT MESSAGE 
CYLINDER = 


;TYPE LOCATION-SUPRESS ZEROS 
;D0 A HOME SEEK 
;WAIT FOR DONE 


TRY FOR READY 
TRY SEEK AGAIN 


wat, FOR_ READY 
RESTORE TRAPS 


;RETURN FROM RANDOM SEEK 
;RANDOM SEEK DONE 


es) Oe RANDOM SEEK 


;ROUTINE TO SET UP CYLINDER AND DISK ADDRESS FROM 
OPERATOR INPUTS DURING CONVERSATION MODE. 


OPDSEL: BIT #85, FLAG 
RTS Be 
MOV SCYL, CYLINDER 
HOVE HED DHE 
RTS Be . 


;ROUTINE TO SETUP DISK BUFFERS 


;USE OPERATOR ADDR? 


3NO 

;GET CYLINDER ADDR 
;GET SECTOR ADDR 
;GET HEAD ADDR 


ADD WORD COUNT TO STARTING DISK ADDRESSES 
COMPARE CALCULATED ADDRESS TO TERMINATING ADDRESS 





ee eeoer SInGe THAN 200 GET ANOTHER CYL NO 








| 
| 





RP1IC RELIABILITY TEST MACY11 E7(722) 

OZRPB.P1i HEH SUBROUTINES Per’ 
23 016160 032767 oO00040 9007444 
2307 016166 001401 
5303 Bie Ze 78> goosz0 

303 161 16767 7462 00750 

2311 016204 016767 7436 007470 
e3sle Oléele 2767 1 007462 
2313 Bless? 67 000011 007454 
2314 Ol6e26 001406 
2315 016230 S267 007412 
e316 016234 007424 
2317 016240 001432 
2318 016242 
2319 016244 042767 000017 007374 
2320 Ol6eS2 016767 007370 007422 
e3el 016260 042767 160377 007414 
e3se2 016266 122767 3 007407 
2323 016274 001403 
2324 016276 105267 007345 
23e5 016302 
e326 016304 005067 007336 
e3e7 016310 7 007330 
2328 016314 767 00 007322 
e3e3 Olé32e 001404 
2330 O1S324 000743 
2331 
2332 
e323 
2334 
oo 
2 16326 105767 007300 
2338 016332 100015 
2339 016334 005067 007306 
2340 016340 005067 007300 
2341 O16344 062716 900002 
este steed 042767 007254 
2242 016356 016767 007274 007256 
2344 016364 
2345 016366 7? 007314 
2346 016372 016767 907250 007302 
2347 O16400 016767 007240 007302 
2348 O16406 042767 160360 007266 
2349 016414 005267 007266 
2350 016420 005367 007260 
2251 O164e4% 001460 
e3Se Ol64e6 1e2767 000011 o07246 
2353 O16434 001403 
2354 pei 005267 007240 
2355 O1644e 000764 
2256 OlS444 105067 e3e 
2357. O164SO 122767 000023 007225 
2358 O164SE 001403 
2359 016460 105267 007217 
2360 O16464 0753 
2361 O16466 67 007210 
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OTSBUF : git eit FLAG ;DID OPERATOR SUPPLY ADDR? 
a SUrEXTT ;OPERATOR DEFINED DISK ADDR 
SR DEFINE BLOCK SIZE 


BLS2 
MOV Brock WORK 1 
INCSEC: MOV DMA, WORK :GET DISK ADDR 
SIC #177760 WORK § ;MASK OUT SECTOR COUNT 


CMP $11, WORK CHECK FOR LAST SECTOR 
BEQ INCSUR 5 CHECK SURF BCE 
INC OMA 1 SECTOR COUNT 
DECBLK: DEC BLOCK sti FROM BLOCK COUNT 
BEQ CMDAE 5 CMP DMA TO RPDA 
8R INCSEC RECYCLE 
INCSUR: BIC #i7,DMA “FETCH ADDRESS 
MOV DMA’ WORK 
BIC 8160377 . WORK 
CMPB 3 s«#23, WORK+1 
BEQ SWSUR +1 SURFACE 
INCB DMA+I *INC HEAD NUMBER 
DECBLK RECYCLE 
SWSUR: CLR DMA “CLEAR THE DISK ADDRESS 
INS CYLINDER 
CP #626,CYLINDER ;HAS LAST CYL BEEN EXCEEDED? 
BEQ BUFEXIT “BRANCH IF YES 


BR DECBLK 
;COME HERE AFTER DETERMINING THE STARTING ADDR OF THE NEXT 
; TRANSFER. NOW CHECK TO SEE THERE IS ENOUGH ROOM ON THE DISK 
510 MAKE THE TRANSFER. IF NOT MODIFY THE WORD COUNT FOR THE FINAL 


CMDAE: TSTB FLAG ;CHECK FOR LAST DISK BUFFER 
BUFEXIT: CLR DMA sCL LEAR ADDRESS BITS 
CLR CYLINDER CLR CYLINDER REGISTER 
ADD #2, (6) INC STACK POINTER 
BIC #200, FLAG 
MOV SWROCT , WROCT 
BR TOR sEXIT 
BUFINX: CLR WORKe *CLEAR BLOCK COUNTER 
MOV DMA, WORK 
MOV CrLtHOER WORK3 
BIC #160360, WORK 
XINCSEC: INC WORK2 j INCREMENT BLOCK COUNT 
DEC WORK *DECREMENT TOTAL BLOCKS REQUIRED 
BEQ EXTOR “EXIT IF BLOCK COUNT SATISFIED 
CMPB ss #11, WORK *CHECK THE DISK ADD 
BEQ XINCSUR SEE IF THERE IS ENOUGH ROOM 
INC WORK TO HANDLE THE OUTPUT REQUESTED 
BR XINCSEC 
XINCSUR: CLRB 
CMPB #23, WORK+1 
BEQ § 
INCB ORK+1 
. BR XINCSEC 
1S: CLR WORK 
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DZRPB.PII 4% SUBROUTINES ¥%% 
exs2 O1b472 022767 000625 007210 CMP #625, WORK3 SARE WE ON THE LAST CYLINDER? 
2363 O16500 001403 BEQ 2$ ‘BRANCH IF YES 
2364 016502 oose6? 007202 INC WORK3 
gb6 16506 42 BR XINCSEC 

366 O16510 016767 007172 007124 23: MOV WORK2, WROCT ;COME HERE IF THERE IS NOT 
e367 O16516 ey CLC ‘ENOUGH ROOM TO HANDLE THE 
368 016520 16? 007116 ROL WROCT *REQUESTED OUTPUT. MODIFY THE 
e368 bib 167 OO0711e ROL WRDCT ; HORDCQUNT TO FILL THE REMAINING 
165 167 0071 ROL WRDCT : SURFACE. 
2371 016534 006167 007102 ROL WROCT 
2372 O1654O0 006167 007 ROL WROCT 
2373 O16544 006167 007072 ROL WRDCT 
2374 016550 006167 00 ROL WR 
2375 016554 006167 007062 ROL WRDCT 
2376 016569 052767 OO0200 o07044 BIS #200, FLAG 
e377 016566 900207 EXTOR: RTS PC sEXIT 
2379 
2380 sROUTINE TO SELECT THE DISK UNIT 
2382 O16570 016767 907036 GO7104 DSKNOS: MOV FLAG, WORK ;FETCH THE FLAG WORD 
2383 016576 006067 9007100 ROR WORK 
2384 016602 ? ROR WORK 
2285 O16606 000241 cle 
2385 O16610 000367 007066 SWAB WORK 
2387 O16614 042767 174377 007060 BIC #174377 WORK — ; MASK THE DISK NUMBER 
2388 Ol6622 016777 007054 006756 MOV WORK, IRPSS ;LOAD THE ADDRESS IN THE ADDRESS REG 
2389 016630 005777 006772 TST aRPDS *1S THE UNIT READY? 
2390 916634 100401 BMI 1$ *BRANCH IF READY 
2391 D166 104400 HLT j SELECTED UNIT NOT READY 
e332 16640 00205 1S: RTS RS *EXIT 
2394 
2335 sINITIALIZE THE VECTORS 
2397 Ol6642 012767 001112 161164 INIT: MOV #ERROR, 34 ;SETUP TRAP VECTOR 
2398 O16650 012767 O 161160 MOV #PRI7, 36 
2399 O16656 012767 001004 161144 MOV #SCOPES. 30 ;SETUP EMT VECTOR 
2400 016664 012767 O00340 161140 MOV #PRI7 
2401 016672 012777 015224 006702 MOV SDKINt JVECTOR ;SETUP DISK INTERRUPT VECTOR 
e402 016700 912777 000340 006676 MOV #PRI7, aSTATUS 
2403 0167068 012737 O00340 177776 MOV #PRI7? JUPSW sLOCKOUT INTERRUPTS 
2404 016714 000207 RTS PC ' 
ae 
e107 ;THIS ROUTINE CONVERTS A WORD COUNT TO A BLOCK COUNT 
2409 O16716 012767 000377 006740 BLSZ: MOV #377, BLOCK ;DRIVE BLOCK SIZE 
2410 016724 016767 O06712 006750 MOV WROCT , WORK *FETCH WORD COUNT 
2411 016732 036767 006726 006742 BIT BLOCK’ WORK 
2412 016740 OO14I0 BEQ RORBL 
git3 bib7He £767 716 006732 BIC BLOCK WORK ;SET UP BLOCK OVERFLOW 
14 O16 7} INC LOCK 
2415 O16754 66767 006704 006720 ADD BLOCK, WORK 
2416 016762 000367 006714 RORBLK: SWAB § WORK 
2417 016766 016767 006710 006670 MOV WORK, BLOCK ;BLOCK COUNT 











RP11C RELIABILITY TEST MACYI1 é7 7(732) 
DZRPB.P11 e#% SUBROUTINES * 
cuig 016774 000207 
e41 
2420 
e421 
e422 
2423 
e424 016776 916701 O06&30 
+) need 006001 
26 017004 006001 
e427? 017006 905067 ee 
e428 O1701e O4e701 177770 
e429 017016 116167 017030 900002 
2439 017024 000207 
e431 
e432 


2434 017030 001 002 004 
2435 017033 010 oS 040 


2437 
2438 
2439 
2440 
2441 
e+42 
2443 
e444 
2445 017040 016700 CO&E05 
e446 017044 016767 006572 006630 
e447 017052 012701 0eS73 
2448 017056 032767 O00500 O06S46 
| sH¥9 017064 O01 
17088 Ole701 040000 
e451 017072 Oee700 000034 
3 7076 001423 
e453 017100 000032 
2454 017104 001406 
| e455 017106 O160e1 017762 
| e456 O171le 7 4 
2457 017116 001373 
e458 017120 9000207 
2459 917122 Ol2e721 177777 
e460 017126 005367 006550 
| e461 017132 001404 
e462 017134 1 
| 2463 017136 005367 O06S40 
| 2464 017142 001367 
cure 017144 000207 
| 
| 2467 017146 016767 000134 000136 
| 2468 C17154 016767 000130 000132 
| 2469 017162 016700 000120 
| #2470 017166 016704 000116 
2471 pizive 012703 000007 
e47e 017176 005002 
e473 017200 006300 
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RIS PC ;EXIT 
4S os THE APPROPRIATE ATTENTION BIT FROM 
; THE UNIT NUMBER. 
GATTN: MOV FLAG,R1 
POR Rl 
ae Ri ;GET UNIT NUMBER 
IC ; ISOLATE UNIT 


#177770,R1 
nove BITNB (RL) ATTN :GET ATTENTION BIT 


ATTN: O 
ATTNB: .BYTE 1,2,4,10,20,40,100,200 


-EVEN 


;ROUTINE TO SELECT DATA PATTERNS FOR TEST 
;ENTER FROM JSR PC_PASEL 


PASEL: MOV PATNU, RO ;SET UP PATTERN NUMBER 
MOV WROCT: WORK :SET UP_WORK 
MOV #OUTBUF ,R *LOC. OF OUT BUFFER 
BIT $00 FLAG. :8K WITH MEM. MANAG. OR NO MEM. MANAG. 
BNE 1$ BR IF TRUE 
MOV #40000, R1 ?START OF MEM. MANAG. BUFFER 
1S: CMP #34, RO ;TEST FOR RANDOM DATA NUMBER 
BEG RANDOM *GO GENERATE RANDOM DATA 
CMP #32, RO IS THIS PATTERN 15 
BEQ PATt32 
FILDAT: MOV PATO(O),(1)+ ;FILL BUFFER 
DEC WORK *DEC. WORK COUNT 
BNE FILDAT *LOAD NEXT WORD 
RTS *BUFFER FULL 
PATT32: MOV #177777,(1)+ | ;INSERT ALL ONES PATTERN 
DEC WORK 
BEQ 1$ 
CLR (1)+ sLOAD ZERO PATTERN 
DEC WORK *DECREMENT WORD COUNT 
BNE PATT32 *LOOP IF NOT ZERO 
1$: RTS PC EX 
“RANDOM DATA GENERATOR SUBROUTINE 
RANDOM: MOV LONUN, LOSAV 
MOV HINUN: HISAV 
1S: MOV LONUN, RO ;SET UP RO WITH S DIGITS LOW 
MOV HINUN, R4 ‘SET UP R1 WITH S DIGITS HIGH 
MOV #7,R3 ;SET UP SHIFT COUNT 
CLR R2 LEAR R2 
2S: ASL RO SHIFT RO LEFT AND 





ee ER RS 


RP11¢ etme TEST MaACY11 & ((7ee) O4-NOV-76 14:18 PAGE Se 
DZRPB. RE SUBROUTINES #e 


oe 104 RUL 4 sROTATE CARRY INTO LSB OF R1 INTO 
75 017204 006102 ROL R2 sROTAT E CARRY OUT OF R1 INTO 
nee Gee a 8 cre tte 
78 pizsip Bee Sr 3 000070 AD LONUN, R2 ae IN NONBER Oh MAKE X 129 
2479 017216 oosso4 ADC 4 GATE CARRY 
2480 017220 966704 OOD064 apd HINUN, R4 : ODN OR NUMBER TO MAKE X 129 
2481 017204 O0550e2 ADC PROPOGATE CARRY 
e482 017226 062700 001057 AOD #1057,RO ADDN LOW CONSTANT 
2483 017232 O0SS04 ADC RY :PROPOGATE CARRIES 
2484 017234 ADS R2 *PROPOGATE AGAIN _ 
2485 017236 062704 O47401 ADD #47401,R4 ;ADDN HIGH CONSTANT 
2486 017242 o05S0e2 ape Re *PROPOGATE CARRY 
2487 017244 O&2702 O00006 ADD #6, R2 *ADDN HIGHEST CONSTANT 
2488 017250 O60200 ADD Re, RO *REPRIME RO WITH HIGH DIGIT 
2489 017252 005504 ADC RY sPROPOGATE CARRY 
2490 017254 010067 oD0026 MOV RO, LONUN RO BACK IN LONUM 
2491 017260 010021 MOV RO? (1)+ HOLD LONUM FOR PROGRAM 
2492 017262 O0S367 ODb414 DEC WORK 
493 017 001406 BEQ EXGEN 
4ug4 O17 010467 O00014 MOV RY, HINUN sPUT R1 BACK IN HINUM 
2498S 017274 010421 MOV R4?(1)+ “HOLD HINUM FOR PROGRAM 
2496 017276 005367 O06400 DEC WORK 
2497 017302 001327 BNE 1$ | 
2498 017304 000207 EXGEN: RTS PC RETURN TO PROGRAM 
2499 017306 o00000 LONUN: 0 
2500 017310 o90000 UN: 0 
2501 017312 oo0000 LOSAV: O 
2502 917314 000000 HISAV: 0 
Sens 
2505 017316 032767 OO0002 161716 MSG: BIT #81,HLTCTS TYPE ENTIRE MESSAGE 
2506 017324 001103 BNE 1$ “BRANCH IF NO 
2507 017326 004567 161732 ISR RS, PRINTS :PRINT MESSAGE 
2508 017332 O24002 MESB 
2509 017334 ? 161724 JSR RS, PRINTS PRINT MESSAGE 
2510 017340 O23611 MES2A 
2511 01734 017767 O06260 162212 MOV IRPDS, TTY 
2512 12 3c6 767 161770 JSR PC, PRINTR TYPE LOCATION WITH LEADING ZEROS 
2513 017354 OO4S67 161704 JSR RS; PRINTS PRINT MESSAGE 
2514 017360 023567 MESIA 
2515 017362 017767 006236 162172 MOV DRPER, TTY 
2516 017370 004767 161750 JSR PC, PRINTR : TYPE {LOCATION WITH LEADING ZEROS 
2517 017374 OO4S67 161664 JSR RS; PRINTS *PRINT MESSAGE 
2518 017400 023600 MES2 
2519 O17402 017767 O06200 12152 MOV JRPCS, TTY 
2520 017410 004767 161730 JSR PC, PRINTR sTYPE LOCATION WITH LEADING ZEROS 
2521 017414 S67 161644 JSR RS, PRINTS ‘PRINT MESSAGE 
2522 017429 3622 MES2B 
2523 017422 017767 006170 162132 MOV JRPCA, TTY 
2504 017430 004767 161710 JSR PC, PRINTR TYPE LOCATION WITH LEADING ZEROS 
2525 017434 7 161624 JSR RS; PRINTS PRINT MESSAGE 
2526 1749 633 MES2C 
2527 O1744e 017767 O01S2 162112 MOV DRPDA, TTY 
2528 017450 004767 161670 JSR PC, PRINTR TYPE LOCATION WITH LEADING ZEROS 
2529 017454 CO4SE7 161604 JSR RS; PRINTS PRINT MESSAGE 


i a ea a 





aoe SUSROUTINES +44 





















MES2D 
006142 162072 MOV aSUCA, TTY 
161650 JSR ie PRINTR ;TYPE LOCATION WITH LEADING ZEROS 
ahd 000005 006174 CMP : , TESTNO ; TEST 5S? 


OC0006 O06164 CMP #6, TESTNO ; TEST 6? 
901010 us SNE 1$ ;BR IF NO 
OC4S67 161544 JSR RS, PRINTS ;PRINT MESSAGE 
Oe42 MES21 SREAD COUNTER = 
016767 006174 162032 MOV CNTA, TTY 
7 161622 JSR PC, PRINTS ; TYPE LOCATION-SUPRESS ZEROS 
000001 161500 15: BIT #B0,HLTCTS ; TYPE EXP-REC 
es ;BRANCH IF YES 


ith 
5 
s 
wo 
2B 
aE 


alatas 
Ree 
| 


HOR PROORE 
Res 





Re11¢ RELIABILITY TEST. MACYII 27(722) OH-NOV-76 14:18 PAGE 83 
D2RFB.P 
i 
0 
0 
0 
e544 6 PC 
esvS 1 767 OOO002 161466 28: BIT &51,HLTCTS 
e547 Ol 161502 JSR «RS, PRINTS ;PRINT MESSAGE 
2548 017562 024147 MESI7 
2549 017564 7 OOO004 161450 3$: BIT #82, HLTCTS ;TYPE_MEMORY MANAGEMENT REGISTERS? 
e500 017872 001460 BEQ «S$ 0 
2551 017574 OO4SE7 161464 JSR «RS, PRINTS SPRINT MESSAGE 
2552 017600 Oc43e7 MES22 
2553 O17602 013767 172344 161752 MOV  &KIPAR2, TTY 
2554 017610 O04767 161542 JSR PC, PRINTS ;TYPE_LOCATION-SUPRESS ZEROS 
2555 017614 oo4se7 161444 JSR RS; PRINTS {PRINT MESSAGE 
| 2556 O17620 24344 MES2Y 
| 2557 Ol76e2 013767 172345 161732 MOV  JSKIPAR3, TTY 
2558 017630 O04767 lbiS2ee JSR ——- PC, PRINTS ;TYPE_LOCATION-SUPRESS ZEROS 
2559 017634 O04S67 161454 JSR «RS, PRINTS SPRINT MESSAGE 
2560 17640 024367 MESS 
2561 O17642 013767 172350 161712 MOV © J&KIPARY, TTY 
Sees Giveso DoW? ieiete JSR —- PC, PRINTS ;TYPE_LOCATION-SUPRESS ZEROS 
2563 017654 O04567 161404 J5R_ «RS, PRINTS SPRINT MESSAGE 
| 2564 017660 O24404 MES26 
2565 Ol7bbe 013767 172352 161672 MOV © @&KIPARS, TTY 
2566 017670 004767 161462 JSR PC, PRINTS ;TYPE_LOCATION-SUPRESS ZEROS 
2567 017674 D046? 161364 J5R_ «RS, PRINTS ;PRINT MESSAGE 
2568 017700 Oe44e7 MES27 
2569 017702 013767 172354 161652 MOV  @&KIPARG, TTY 
B70 017710 OON767 161HHe ss, OR PC, PRINTS ;TYPE LOCATION-SUPRESS ZEROS 
| 2572 017714 OO4S67 161344 JSR —-RS, PRINTS ;PRINT MESSAGE 
| 2573 017720 Oe4i62 MES18 
2574 017722 016767 OO0030 161632 MOV EXP. TTY 
017730 004767 161410 JSR PC, PRINTR ;TYPE LOCATION WITH LEADING ZEROS 
2576 017734 OO4S67 161324 JSR —RS, PRINTS {PRINT MESSAGE 
017740 024176 MESS 
2578 O17742 Ol6767 OOOD12 161612 MOV RECS, TTY 
2573 017750 004767 161370 JSR —- PC, PRINTR ;TYPE LOCATION WITH LEADING ZEROS 
2580 017754 000207 T pC’ 
2581 017756 00000 EXPS: 0 
| 2562 017760 00000 RECS: 0 
| 3583 
| 2584 
| 


—— 


OE EEOEEOOOe 


i 
a | 
A 
: 
| 


“a 


- 


TTT LTT 


LIC RELIABILITY TEST MACYI] ET(722) O4-NOW-7E 14:18 FRGE 54 
TREE. ELI eee SUSROUTINES see 
256 EVEN 
34 sRP Li DATA BATTERNS 
ee3 gir7be 163126 PATO: 163126 
86 017764 O52525 PATI: 052525 
259] picres 125252 PATe: 125252 
2592 017770 931463 PATS: 931463 
e593 eee: oul? PAT4:  O07417 
= 017774 O104e1 FATS: 010421 
2535 0) 821042 Pate:  Oe2l04e 
2236 042104 PaT?: O42104 
2597 104210 PATIO: 104210 
2598 O20004 1673SE PATI1: 167 
2599 020006 156735 PATI2: 156735 
2500 020010 135673 PATI3: 135672 
2601 Oe00le 073567 PATI4: 073567 
2602 O200:4 1 PaTIS: 000001 
2603 sPATIE RANDOM DATA 
ees sTHIS ROUTINE E COMPARES 7 THE 0A DATA READ AGAINST THE DATA EXPECTED. 
ERRORS 0 THE HE OPERATOR. IF BIT S OF THE SWITCH 
2607 SRESIETER IS SET, THIS ROUTINE WILL CONTINUE COMPARING AFTER AN 
2608 ERROR HAS BEEN FOUND AND WILL REPORT UP TO 3 VERIFY ERRORS 
2609 * 4] THIN THe SAME INPUT OPERATION. 
2610 O200i6 012767 177775 ooses4 COMPAR: MO 8-3 ERCOUNT ERROR RETRY COUNTER 
2611 O20024 616767 005612 905654 Nov WROCT, WORK2 GET THE WORD COUNT 
2612 620032 012767 025730 MOV TBUF ‘SET UP ER POIN 
2613 O20040 7 oosoo OOssEe4 BIT #500, FLAG °BK WITH MEM. MANAG. OR NO MEM. MANAG 
2614 Se0046 001003 BNE 3BR IF T 
2615 O200S0 012767 o¥0000 o0sEoe MOV 840000, SAVE :START OF MEM. MANAG. OUT SUFFER 
2616 O20056 7? OOSSEE 1S: CLR SWITCH :CLEAR RANDOM PATTERN FLAG 
2617 Sentbe 016767 177224 bible MOV LOSAV, LONUM :GET RANDOM BASE NOS. 
e618 016767 177220 161602 MOV HISAV. HINUM 
2619 020076 7 000034 Oo0SS46 CMP #34, PATNU 31S THIS RANDOM PATTERN? 
2620 O20104 O014e2 BEQ céPLP :BRANCH IF YES 
2621 020106 7 000032 005536 CMP #32, PATNU *IS THIS SPECIAL PATTERN? 
2be2 020114 001037 BNE CMPLP1 ;BRANCH IF NO 
2623 020116 7 o0SS26 CMPLP2: TST SWITCH 
Pee4 Oedlee 1008 BNE 1$ 
2625 O20le4 01276 477772 177624 MOV 8177777,EXP$ EXPECT ALL ONES 
2626 020132 910667 Sie MOV SP. SWITCH :SET THE FLAG 
2627 Oe0136 ee BR WROCMP GO COMPARE DATA 
spe Ponty poenes Soeene me a eee SEXPECT ALL ZEROS 
2630 pSpie BR STDeNP GO COMPARE DATA 
2631 Oe015e 7 o0s47e2 CMPLP: TST SWITCH 
2632 520156 1019 BNE 2s 
e323 520! 161400 JSR PC, RANDS GENERATE TWO RANDOM NOS. 
bed 1b 16767 16iSi2 177564 MOV LONUM, EXPS GET EVEN RANDOM WORD 
2635 0201 10667 Oo054S2 MOV SP, SWITCH *SET RANDOM PATTERN FLAG 
eb be0176 000413 WROCMP 
3e > Ss ine = 3 tows 
35 boosie “E 
2640 Oc02014 016700 onps432 CMPLP1: MOV PATNU, RO 
2641 Oe0ee0 O1E0E7 017762 177530 MOV PATO(RO) ,EXPS 





RELIC RELIABILITY TEST MACYII 
DZRPB.P11 ##% SUBROUTINES 
aeue 7767? O0S426 

4 1021 
epi 3 Ghs3b7 ose 
48 Pets poonge 
2649 deere? o00034 
2651 BeAais 
Se FES BE wun 
ESS 1750 
eb56 e030 017767 O0s246 
Geg314 10667 160720 
2s 767 «(HNS346 
2659 O20324 001404 
Sepe pspase Bares, Cotten 
Sees tena 5 poo100 
2063 001002 
Sees pensso | Aposol 
1 
sep fees boss? 005304 
2668 020360 016767 005256 
2669 020366 166767 005314 
2670 e034 162767 OO0400 
Be 1 rey 
2673 O204i0 000771 
Sere ooase BTETE? pesos 
Seoe Souse BieseS presi 
2677 Oos767 o0sée4 
73 pos Rese? OUszI6 
ee80 OIG 122767 000011 
cee potmee BOSSE? uszze 
Sper booues Spear 3067 g0s214 
cree DSINTR BOIdeS 
2687 Oets00 105267 o0s201 
sees on BF ons) 
Seeq pSpeie posse? Boer? 
ee es 
cas 7 460540 
2604 Oen5e4 eYl1s 
269 Sets 016767 00s) 
2696 767 16061 
2697 020540 7 005130 


@7(732) 


eee 
17752 


O0S4O& 
005372 


005362 


161026 


O4-NOV-76 14:18 PAGE SS 


4§: 


6$: 


7$: 


ROIS SO eae mee 


<4 > 
ai 


SSAVE ,EXPS 
WDERR 


#400, WORK 
DMA, WORK! 


CYLINDER, WORK3 
BLOCK 


7$ 
BLOCK 
811, WORK! 


a ee ee oe ee 


;COMPARE DATA 
;WORD_IN ERROR 
;DECREMENT THE WORD COUNT 
sEXIT ROUTINE IF ZERO 
UPDATE PATTERN ADDRESS 


;BRANCH IF STANDARD patent 
315 THIS RANDOM PATTERN 
fey H IF YES 

H IF YES 

: COMPARE NEXT WO 





tPRINT | Barras a RETRY ERRORS? 
i RENORY L:RNHGENENT? 


i BATA COM COMPARE wae USING MEM. MANAG. 

GET ARRCUND HLT+3 

;DATA COMPARE ERROR 

CLEAR THE BLOCK COUNTER 

GET THE WORD COUNT 

;DETERMINE DISTANCE OF FAILURE INTO BUFFER 


;UPDATE BLOCK COUNT FOR EACH 400 WORDS 


;RESTORE POSITIVE NUMBER 
:GET HEAD AND SECTOR ADDRESS 


COUNT 
INE THE CYLINDER, HEAD, 
CTOR RODRESSE SES OF THE 


;PRINT MESSAGE 
GIVE CYL ADDR 


; TYPE LOCATION-SUPRESS ZEROS 


2 
a 


‘o 


SESRIDEPSTEP SD SSS AS RIANA SAISASEASENSSSARSE SEEDERS OE 


awe ae ee + ee er ee ee ee eee oe 


TABILITY TE cyl 7 (732) O4-NOV-76 14:18 PAGE Sb 
Pl alee aut thes» 
O20S44 116767 005135 005122 MOVB = WORK141 ,ACNVX 
020552 7 160506 JSR RS, PRINTS sPRINT MESSAGE 
020556 125 MESIS *GIVE HEAD ADDR 
6767 005110 160774 MOV ACNVX, TTY 
767 160564 JSR PC PRINTS 18 LOCATION-SUPRESS ZEROS 
116767 005106 o0so74 MOVB §WORK1. ACNVX 
7? 160460 JSR RS, PRINTS sPRINT MESSAGE 
16 MESI6 GIVE SECTOR ADOR 
020606 016767 OOSOB2 160746 MOV ACNYX, TTY 
020614 bo4762 160536 ISR PC, PRINTS ; TYPE LOCATION-SUPRESS ZEROS 
b 1 138, RS, PRINTS ‘PRINT MESSAGE 
pe iois pososo ooso40 MOV WORK, ACNVX ;GET WORD COUNT INTO SECTOR 
005034 INC ACNVX 
40 016767 005030 160714 MOV ACNVX, TTY 
46 767 160504 ISR PC,PRINTS - : TYPE LOCATION-SUPRESS ZEROS 
O206S2 OO4S67 160406 ISR RS,;PRINTS © ;PRINT MESSAGE 
020656 O24101 MES13 
O20660 016767 OOSOD& 160674 MOV RDERR, TTY 
020666 004767 160464 JSR PC,PRINTS -  ;TYPE LOCATION-SUPRESS ZEROS 
020672 032737 O0O040 177570 1S: BIT BS, JeSWR CON TINUE. COMPARING? 
020700 001405 BEQ 11 : BRANCH 
020702 pois 004772 INC ERCOUNT : UPDATE Beate COUNTER 
020706 o01402 BEQ 118 
029710 000167 177322 IMP WRDINC 
020714 O00167 177356 118:  JMP ADAM 


;EXTENDED MEMORY EXERCISER 
:THE PROGRAM DETERMINES a MUCH MEMORY 
i153 ON. ON THE 2". EM THEN 


GENERATES A RANDOM BUFF ER T SIZE 
ND WRITES AND WRITE CHECKS HONE DATA 
020720 032767 000100 004704 EXTMEN: BIT #86, FLAG ;MEMORY MANAGEMENT IN USE? 
020726 001002 BNE 1§ BR IF NO 
020730 005037 177s7e CLR deSRO TURN IT OFF 
020734 1 OO4E44 1S: BIS #80, IRPCS *CLEAR THE DISK 
peor 105777 OO4640 TSTB = arPtS 

100375 BPL a4 
020750 012737 900340 MOV #PRI7, 28PSW sLOCK UP PRIORITY LE LEVELS 
020756 bie767 1 57020 MOV #MAXREF 4 *SET UP 1/0 BUS T 
beo7el 12767 157014 MOV #PRI7.6 

012767 017446 MOV #17446, SAVE ;SET UP FOR 4K 
621000 005777 OO4ESY . EXREF: TST aSAVE *REF 
021004 7? 157446 OO4646 - "CMP #1S7446,SAVE TEST FOR 28K 
021012 O01 BNE 1$ “BRANCH IF LESS THAN 28K 
021014 BR MAXRF 1 sLAST REFERENCE MADE TO 1/0 REG. 
021016 062767 C20000 OO4E34 1S: ADD #20000, SAVE iSeT UP FOR NEXT MEMORY REF. 
021024 o00765 BR EXREF GO REFERENCE MEMORY 

ENTER HERE WHEN 1/0 BUS ERROR OCCURS 

021026 162767 020000 OO4G24 MAXREF: SUB #20000, SAVE 
021034 012767. 000006 156742 MAXRF1: MOV #6,4 sRESTORE 1/0 BUS TRAP 











RP1IC RELIABILITY TEST MACY1] 27(722) O4-NOV-76 14:18 PAGE $7 
DZRPB.P1I #ee SUBROUTINES ### 
2754 O21042 005067 155740 CLR 6 
755 G21046 737 oo0042 TST ae4e2 sUNDER MONITOR CONTROL? 
1 14 BEQ 1$ :BRANCH IF N 
021054 162767 O0S670 o04s7E SUB #3000. , SAV “ALLOW ROOM FOR THE MONITOR 
Be bei be 6767 OOO66D 18: MOV SAVE, MEMSI :SAVE THE MAXIMUM MEMORY ADDRESS 
1 767 JSR PC, MMSIZE *GO SIZE WITH MEMORY MANAGEMENT 
2760 d21074 162767 025730 OO4SS& MMBK: Sug sOUTBUF,SAVE § :DETERMINE THE BUFFER SIZE 
soph pitts Obese o04SS0 ROR $8 FORM WORD COUNT 
2763 021110 016767 OO4544 oD4se4 MOV VE, WROCT :SAVE I 
2764 O2ll16 042767 004534 BIC #80, SAVE “MAKE ADDRESS EVEN 
2765 Gelies b1e762 025730 004536 MOV sOUTBUF,INBUF  ;START OF INPUT BUFFER 
2765 Oell32 767 O04S22 004530 ADD SAVE, INBUF 
2767 O21140 O00e41 cLC 
2788 O21l42 O42767 000377 004472 BIC #377 ,,WROCT sDETERMINE MAXIMUM WORD COUNT 
2769 O21150 016767 004500 MOV WROCT, SWROCT 
2770 O21156 012706 OO0476 EXIT: MOV aSTKPTR-2, SP 
2771 Oelibe : RTS RS 
5375 s THIS SUB-ROUTINE MAPS FOR MEMORY MANAGEMENT AND SETS UP 
2774 *BUFFER SIZES WITH MEMORY MANAGEMENT 
021164 032767 OO0100 OO4440 MMSIZE: BIT 886, FLAG sUSING MEMORY MANAGEMENT? 
ae 51153 001340 BNE MMBK iB 3 NO 
2778 021174 005237 177572 INC aeSRO > TURN MEMORY MANAGEMENT BACK ON 
2779 021200 012737 Oe2le4%6 o00004 MOV SNXM,O8ERRVEC _ ;SET UP FOR TRAP 
2780 O2le06 O1 pog340 000096 MOV #340, QaERRVECS 
2781 Oelel4 O1 172344 MOV #400’ 38KIPAR ;SETUP FOR NEXT 4K PAGE 
2782 ODeleee 01 177406 172304 MOV #400%256.-4O0+UPSRW.aSKIPDR2 —_;SET KIPDR2=RW UP 400 BLOCKS 
| 9783 021230 b12705 040000 MOV RO ;SEt UP FOR TEST 
| ree peice ree 000040 172344 - ABD $00. aeKIPAR2 JUMP PAGE BY 1K 
| 2786 Beises | DOdrT3 ze rt STEST NEXT 
| 2787 eles Oee7 2 000400 172344 NXM CMP #400, asKIPAR2 ; RACHINE? “ 
a rae ered 000400 004346 Bie #88, FLAG >8K MACH M at MEMORY MANAGE 
2790 021264 005037 172304 CLR ask tPORe :SET KIPDRe TO BE NON EXISTANT 
2791 021270 012737 000006 oo0004 HOV i 84 *RESTORE TRAP CATCHER 
ee aes ries a oN sFINISH MAPPING AS IF NO MEMORY MANAGEMENT 
| 2794 021304 013767 172344 OO0446 1S: MOV JSKIPAR2, PARMAX :PUT KIPAR2 INTO WORK LOCATION 
te) Oei31¢ 7 000340 O00440 BIT 840, PARMAX “EVEN 4K? 
1 14 BEQ 4 *BR IF EVEN 4K BLOCK 
2797 1555 636767 000140 000430 BIT #140, PARMAX ;LAST PAGE 3K? 
ie at Wea 000100 oc0420 BIT #100, PARMAX Pact 2k? 
| pB00 021340 001407 BEQ 2s *BR IF YES 
| 2801 1 1 2 90049 900410 SUB #40, PARMAX ;CREAT MAX NUMBER FOR KIPAR 
2802 el 012767 MOV #2000, MMSIZ MAX FOR LAST PAGE 
| 2803 021 BR MMF IN * CREAT SIZES AND WORD COUNTS 
| 2804 021360 162767 000100 000372 2s SUB #100, PARMAX *CREAT MAX NUMBER FOR KIPAR 
gene Oe labb 012767 004000 000360 MOV #4000, MMSIZ : MAX OF WORDS IN LAST PAGE 
1 15 BR MMF IN ;CREAT BUFFER SIZES AND COUNTS 
| 807 021376 162767 000140 000354 3S SUB #140, PARMAX *CREAT MAX NUMBER FOR KIPAR 
| 2808 Oel404 012767 006000 0o00346 MOV #6000,PARMAX © :MAX NUMBER OF WORDS IN LAST 
| 2808 O2l4l2 COO406 BR IN sCREAT BUFFER SIZES AND WORD COUNTS 
| 
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IABILITY TEST MACY11 27(722) 
### SUBROUTINES ### 


000336 


000324 
000322 


177572 


172306 
172310 
172312 


172314 


157622 


O4-NOV-76 14:18 PAGE S8 


4§; 
MMFIN: 


es: 
3$: 


4§: 


18: 


1$: 









0, PARMAX s CREAT MAX NUMBER FOR KIPAR 
+5000 MMSI2 X NUMBER OF WORDS IN LAST PAGE 
#1600, , PARMAX Ban 24K 
#609, RO SET UP FOR NUMBER OF 4K PAGES 
RI} PARMAX ;D0 WE HAVE THE NUMBER OF PAGES 

5 “BR IF YES 

#200, RO INCREMENT PAGE TEST 
Ri : INCREMENT NUMBER OF PAGES 
2S : TEST 
WRDCT CLEAR COUN 
R1, PORS : STORE OF KIPORS 
#10000,WROCT 34K 
RE : OF 4K PAGES 
4 : 4K PAGES 
MMSIZ,WROCT : ADD SIZE OF LAST 
WROCT;SWROCT  ;SAVE TOTAL BUFFER SI 

T; MAXWC *SAVE AGAIN FOR CONFORMITY 
SAL G0 SAVE THE LOADERS 
#50000, MAXWC 520K T 
#40000;SWROCT = ;SET UP HIGHEST TRANSFER SIZE 
MMSIZ,SWRDCT | :ADD LAST PAGE SIZE 
#5, PORS :SET UP COUNT FOR KIPDRS 
LORFLG ARE THE LOADERS ALREADY RELOCATED? 
COREL tADSUST LOABER RELOCATED FLAG 

cs 

HERSTS, RO 
#3777, RO :SET UP FOR 1K WORD 
#1$, JHERRVEC sSETUP T TRAP CATCHER 
z Ri *BK START ADDRESS FOR LOADERS 
{R0)+, (RL)+ : LOADER 
#6, JUERRVEC sRESTORE TRAPCATCHER 
JSERRVEC+E 

a ; TURN MEMORY MANAGEMENT BACK ON IF OFF 
PDRS, RO * PUT NUNBER OF KIPDORS INTO WORK REGISTER 
RO ;SETUP F OR PROPER 
3$ BR IF N NO KIPDRS NEED SETTING uP 
H400H256. ~NoD+uPIRu, dex ;SET KIPDR3=RW UP 400 BLOCKS 
3$ 
#4008256. count lati pkg ;SET KIPDRY=RW UP 400 BLOCKS 
3$ 
#4008256. cout etn ;SET KIPDRS=RW UP 400 BLOCKS 
3$ 
#400256. anil. SKIERS ;SET KIPDR6=RW UP 400 BLOCKS 
RS, PRNTFS ; FORCE PRINT THE MESSAGE 


;LOADERS HAVE BEEN RELOCATED TO 8K 
:TO RESTORE LOADERS START AT LOCATION 
#RELOAD, TTY 


PC, PRINTB ;FORCE TYPE LOCATION - SUPPRESS ZEROS 





Bal 





GOS 


aN cme a tt are Ee (7ee) O4-NOV-76 14:18 PAGE SS 





f 
zee 021744 000167 177206 IMP EXIT sMEMORY MANAGEMENT DONE 
1 MSI2Z 
eee O31 78s MEX: Reade EXTENDED MEMORY ADDRESS 
? i popes 5 : THE NUMBER R OF BARES IN THE BUFFER 
ese p517e8 PARMAX: 5 >THE MAXIMUM KIPDR VALUE 
2873 021762 MAXWC: 0 
te ;SUB-ROUTINE TO INITALIZE KIPAR2-6 
021764 016700 17776 PARINT: MOV PDRS, RO ;GET NUMBER OF KIPARS 
$78 021770 012737 O00400 172344 HOV #400, dak IPARE pal FIRST PAGE 
2880 O22000 001422 BEQ 1$ RGF YES” 
2881 O2e002 012737 OO0600 172346 MOV 8600, J#KIPARS sR UP SECOND PAGE 
eee G2e010 DEC RO ; DONE? 
le 00141 BEQ 1$ *BR IF YES 
2284 g2e014 01 001000 172350 MOV #1000, 2#KIPARY ; SETUP THIRD PAGE 
2885 DEC RO ; DONE? 
2886 Oec0e4 001410 BEQ 1$ *BR IF YES 
2887 Oec0eb 012737 001200 172352 MOV #1200,d8KIPARS ;SETUP FOURTH PAGE 
2888 022034 DEC RO : DONE? 
2889 022036 ities BEQ 1$ :BR IF YES 
2890 022040 012737 001490 172354 MOV #1400, 98KIPAR6 ;SETUP FIFTH PAGE 
2891 Oe2046 ao 090004 1S: ADD #4, (SP) 
2892 Oe20Se RTS PC 
oeaa Baa ;SUB-ROUTINE TO INCREMENT EACH KIPAR USED BY 1K 
ese 022054 ooso00 PARINC: CLR RO sSETUP INDEX 
022056 016746 177674 MOV PDRS, -(SP) *GET NUMBER OF KIPARS 
2898 Oee0b2 006316 ASL ( *DOUBLE IT 
2899 Oec064 062760 OO0D4D 172344 1S: ADD #40, KIPAR2(RO) $INCREMENT KIPAR BY 1K 
599 aaa onp Ro}e, i BONE? LEX 
ed Waa rier BNE 1s’ *BR IF NO 
2303 022100 TST (SP)+ *CLEAN UP STACK 
e304 022102 000207 RTS PC * RETURN 
2306 ;SUB-ROUTINE TO GENERATE "MEX", “WROCT”, “BUF” USING MEMORY MANAGEMENT 
Sone 022104 013700 172344 PARREG: MOV JaKIPARG, RO ;GET THE LOW REGISTER 
5208 Gee119 2700 171770 BIC #171770, RO "CLEAR ALL BUT ADDRESS BITS 17818 
i 114 Be sb ASL *PROPERLY POSITION MEX BITS 
oil Deel 1 006300 ASL RO 
sais pesteo ited 177624 save RO, MEX ;STORE FOR DRIVE EXTENDED MEMORY BITS 
2914 O22126 013700 172344 MOV ask IPAR2, RO *GET THE LOW REGISTER AGAIN 


a eee eee 













2 
fi 


IABILITY TEST MACY11 E7(722) O4-NOV-76 14:18 PAGE 60 
##® SUBROUTINES ### 


4 
*v 
~ 


RRR 


700 006000. Bic #6000, RO ;CLEAR ADDRESS BITS 17818 
A RO ;PROPERLY POSITION AS RPBA 


606200 af 

S =F 

1 ; 003504 MOV 5 TORE AS BUS ADDRESS 
50580 . 


WOOonoul 
0 pp 


b> -- > - bp 


Dubus 


2 RO, BUF 3S 
922150 001000 903454 IC #85, FLAG sCLERR LAST PAGE FLAG 
1 LR RO : INITALIZE INDEX 
teeies 016700 177572 MOV FORS, RO *GET NUMBER OF KIPARS 
1 ASL RO sFINAL INDEX VALUE 
ata O16046 172344 MOV KIPAR2(RO),-(SP) sPUT VALUE OF LAST KIPAR ON STACK 
022174 Oeebb/ 177560 CMP (SP)+,PARMAX § ;WORKING WITH LAST PAGE? 
D22200 O01 SNE 1$ :BR IF NOT LAST P 
Oee202 052767 001000 003422 BIS #89, FLAG *SET LAST PAGE BIT 
022210 0320767 000002 O03414 1S: BIT #Bi;FLAG ;OPERATOR SELECTING TRANSFER SIZE 
22216 001010 BNE 23 *BR IF OPERATOR SELECTING TRANSFER SIZE 
7 001000 003404 BIT #89, FLAG LAST TRANSFER? 


BNE ;BR_ IF YES 
016767 177526 OO03404 pov MAXWC , WRDCT ;SETUP_ WORD COUNT 

MOV 

RTS 


;EXIT FROM SUB-ROUTINE 
016767 O03412 003374 28: SWROCT , WROCT ;SETUP OPERATOR OR LAST PAGE WORD COUNT 
000207 3$: PC ; RETURN 


oon 


;BACKGROUND TEST FOR INTERRUPTS - WORST CASE NPRS AND BUS PATTERN 
O00e2e NPR: MOV SP, BCKFLG ;SET BACKGROUND FLAG 





022250 010667 
022254 012767 030000 o00z10 MOV #30000,NPRCNT  :SETUP TIMEOUT COUNTER 
Oeeebe 12701 022474 Mov #NPR1, RI 
ll CLR (R1) ;SETUP BUS PATTERN 

022270 000261 ‘a C 

Be5573 106111 ROLB 

022274 105421 NEGB 

022276 105441 NEGB 

022300 106111 ROLB 

Bee302 105421 NEGB 


Rett da casei aunts eeeeearnci ciety ih phir 


022304 105441 NEGB 
022306 106111 ROLB 
Oee310 105421 NEGB 
Gee3i2 105441 NEGB 
Bee314 106111 ROLB 
Assets 105421 NEGB 
105441 NEGB 
Oeesee 106111 ROLB 
assace 105421 NEGB 
105441 NEGB 
psc tise 11 ROLB 
105421 NEGB 
foam 105441 NEGB 
106111 ROLB 
pea iceict NEGB 
105441 NEGB 
Oees44 106111 ROLB 
Oees4e 05421 NEG 


! 
! 
‘ 


mw ee ee 


pe me mn i | ns re ee 
‘ 


RP11C RELIABILIT 
OZRPB.P1 


SERRE GRR SU aR AS ERE Rau SRE BME Ia oo 
5 
e 


BSSSESSeEe 
DO NOU Wr 


ROSSA 


fre 
- 


- £ fe £ oe 
ie £ Tue 2TH 
D+ b— 0 & 2b 2 + Bap pH cs 


RPRRARARRRATRRREREE 
Spe a ae 


RRAG 
Mr Cre 


rRRRARRRRRRARR 


e 


b= 0— & < b= bb Fb — 6-2 b= bs fo pe pe 


: 


o0cd2e 


156604 


000006 


156574 


157170 
000131 


ooo4e4 


Y TEST MACY] &7(732) 
### SUBROUTINES #2# 


157272 








O4-NOV-76 14:18 PAGE 61 


NEGB -(R1) 
INC Rl 
ROLB (Rl) 
NEGB (R1)+ 
NEGS -(R1) 
ROLB (Rl) 
NEGB (R1)+ 
NEGB -(R1) 
ROLB (R1) 
Nee (R1)+ 
NEG -(R1) 
ROLB (R1) 
NEGB (R1)+ 
NEGB -(R1) 
ROLB (R1) 
NEGB (R1)+ 
NEGB -(R1) 
ROLB (R1) 
NEGB (Rl)+ 
NEGB -(R1) 
ROLB (R1) 
NEGB (R1)+ 
NEGB -(R1) 
ROLB (R1) 
NEGB (R1)+ 
GB -(R1) 
ROLB (R1) 
DEC Rl 
BCS 1$ 
HALT sARITHMETIC OPERATION FAILED RUN DIAG 
1g pee peel 
HLT sOPERATION TIMED OUT WAITING FOR INTERRUPT 
JSR RS,PRINTS sPRINT MESSAGE 
Mig 


NPRRET: CLR BCKFLG 
TS PC 
NPRCNT: 0 
NPR1: 
BCKFLG: 0 
s THIS TEST ALLOWS THE OPERATOR TO SPECIFY TWO CYLINDER ADDRESSES 
sAND THE PROGRAM WILL THEN SEEK BETWEEN THEM. THE ROUTINE DOES 
s;NOT CHECK FOR ERRORS. 
CYLSK: RESET 
JSR 


eR RS, PRNTFS FORCE PRINT THE MESSAGE 
JSR PC, READS INPUT MESSAGE 

CHP #131, INPUTS ;DOES HE WANT HEAD ALIGNMENT ROUTINE 
IMP HEAD GO DO HEAD ALIGNMENT ROUTINE 


4$: 





































RELIABILITY TEST MACYI1 €7(722) 
OZRPB. P11 ##& SUBR QUTINES + 


O4-NOV-76 14:18 PAGE 62 


3058 Gos834 156546 iat RS, PRNTFS ;FORCE PRINT THE MESSAGE 
767 «157142 JSR PC READS ; INPUT MESSAGE 

231 ese athe 000131 1S7e44 ee #131, INPUTS sDOES HE WANT HOME SEEKS? 

tg 000516 JMP HOMERS G0 D0 HOME SEEK ROUTINE 


3033 OeeSss 1$: 
3033 7 156520 JSR RS, PRNTFS ;FORCE PRINT THE MESSAGE 
4 CONIS CYLINDER A 

3036 OeeS64 004767 157114 JSR PC, READS SINPUT MESSAGE 

Er 2 767 hareee JSR PC; PACKS ;CONVERT INPUT TO @ NUMBER 
2767 O0006e6 157532 CMP #626, NUNS 31S CYL ADDR TOO HIGH? 

3039 Oee2602 101765 BLOS 1$ BRANCH IF_YES 

3040 016767 157524 003102 MOV NUMS, CYLA ;SAVE FIRST ADDR 


1 2s: 
Su 8 O04S57 156464 JSR RS,PRNTFS sFORCE oa THE MESSAGE 


3043 022616 Des267 me CONI6 IND 

Shue Bessy Bouser iesese ye RT BRCK HINUT thet TO, A HUMBER 
2046 022630 022767 000626 157476 CHP #8626, NUS Sate ADDR 100 HIGH? 
Ea Deeb Aieee? 157470 003050 ‘ns MOV NUMS, CYLB : SAVE Ge tbND ADDR 


156430 JSR RS, PRNTFS iORIvE® PRINT THE MESSAGE 


PC, READS INP T MESSAGE 
157176 JSR PC’ PACKS CONVERT INPUT TO A NUMBER 
7 000010 157442 CMP #10, NUMS :TS UNIT & TOO HIGH? 
BLOS 38 : BRANCH IF YES 


;SAVE UNIT NO. 
174056 JSR PC, GATTN ie eee ATTENTION BIT 
Ea CYLS1: a RS, DSKNOS gSELECT I 


3062 002764 002664 V CYLA, IRPCA LOAD THE CYLINDER ADDR 
3063 000011 O0cb46 BIS #11, aRPCS ‘Tecue SEEK COMMAND 
3064 002642 208: STB arets *WAIT FOR READY 

soe & 174054 O02652 1S: BIT ATTY, RPDS ;WAIT FOR ATTENTION 


TST JRPCS 
2s 


1 
104400 HLT ;ERROR AFTER SEEK COMMAND 
032777 OO04000 002624 BIT $31, US ise INCOMPLETE? 


RANCH IF NO 
112777 000015 002574 MOVE #15, aRPCS ; ISSUE HOME COMMAND 
1perre 002576 218: TSTB Rpts :WAIT FOR READY 


1 
174002 002600 35: BIT arin, » ORPDS ;WAIT FOR ATTENTION BIT 


001774 

16777 173772 02670 MOV ATTN, ARPDS 

16777 trata S2 2S: MOV CYLB’ dRPCA sLOAD CYLINDER ADOR 
1, aRPCS iene SEEK COMMAND 


022664 

022672 

022674 

022676 

022714 

022724 

022732 

022740 

022744 

022746 
3068 Seer e 174044 o0e64e2 apy ATTN, RPDS CLEAR ATTENTION BIT 
3069 naa 002616 “ANY ERRORS? 

022770 

022772 

022774 

023002 

301 

301 

02 

023026 

02 

02 

023044 #1 

023052 105777 002530 223: STB arPts WAIT FOR READY 













i 


WWWWWWIWWWWOIWGIW WWI WWW WOW GWG WUIWIWWWIGIWWW WGI) 
BRR O RB RRR OR Se NoM con-oOSSNEN Owe 
: 


RP11C RELIASILIT 
OZRPB.P11 


173742 
173732 
002504 


156002 


156376 
156550 
000010 


157006 
000015 


Y TEST MaACY11 &7(722) 
##& SUBROUTINES ### 


002540 


002530 


002512 
002462 


002466 
002456 


157014 


002260 
002250 
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4$: 


238: 
6S: 


SS: 


;THIS ROUTINE I 
;HEAD TO BE SELECTED, SWITCHES 08-10 IS THE DRIVE TO BE SELECTED - 
WHEN SWITCH O7 IS TOGGLED A NEW HEAD AND DRIVE WILL BE SELECTED. 


HEAD: 


1$: 


;THIS ROUTINE DOES A HOME SEEK AND THEN TRIES TO DO 
3A TWO WORD READ FROM CYLINDER O00 WITH OUT A SEEK TO CYLINDER 000 
;LOOPING BACK TO HOME SEEK 


HOMERS: 


18: 






223 

RITN, aRPOS sWAIT FOR ATTENTION 
ATTN, IRPDS sCLEAR ATTENTION 
aRPcs :ANY ERRORS? 







a ;SEEK INCOMPLETE? 







#15, IRPCS s ISSUE HOME COMMAND 
arets WAIT FOR READY 
BTTN, RPDS WAIT FOR ATTENTION 
ATTN, ORPDS CLEAR ATTENTION 
cyLsl 





USED FOR HEAD ALIGNMENT - SWITCHES 00-04 IS THE 


RS, PRNTFS ;FORCE PRINT THE MESSAGE 


CON18A ;CLEAR OUT SWITCH DEFINATIONS PRINTOUT 
Scere ert ;SETUP FOR CYLINDER 146 


(SP) 
#177600,WORK § ;CLEAR OUT DRIVE NUMBER 
WORK :PUT HEAD IN PROPER POSITION 


"LOAD HEAD NUMBER INTO DISK ADDRESS 
(SP)+, WORK *GET DRIVE NUMBER 
#377, WORK :GE RID OF HEAD ADDRESS 
#11, WORK *SET A SEEK GO TO DRIVE NUMBER 
WORK, ORPCS *SET SEEK 
<4 ;WAIT FOR DRIVE TO BE READY 
JeSWR : NEW HEAD AND/OR DRIVE 
is GO TO NEW DRIVE AND HEAD 


RS, PRNTFS FORCE PRINT THE MESSAGE 
*WHAT DRIVE? 

PC, READS INPUT MESSAGE 

PC’ PACKS ‘CONVERT INPUT TO A NUMBER 

#10, NUMS >TOO LARGE? 

HOMERS BR IF YES 

NUMS, JRPCS1 ‘LOAD UNIT NUMBER INTO CONTROLER 

#15, JRPCS * ISSUE A HOME SEEK AND GO 





ee ee EEE—eEEOEOEEeee 


RP11C 1 ape TEST MACY11 E7(722) 
DZRPB. ### SUBROUTINES ### 


023336 105777 Oo02244 
002256 


002230 
032777 001000 O02236 


155400 


+O 2-2-2 b— & = P= pb -- pp —- 


002170 
002164 
002150 


155320 


000004 
000006 


000004 


020104 
051501 


15 042520 
036S¢2 


c0s015 


WWII OIG GIGI GIGI GI GIG) GI WIG) GI GIG) 0 00 GG) GI GG) G) GC) GG) GI GIG) GG) 0) GI GIG) GJ GI GI GI CI GI CI GIGI CIGIGIGIGIWIWOIG 
see tepdincietnr-coeaiiacastac aimee <n ores age tat a arte mmneatgcags 2 


b+ 2 b+ 0 Bb = 2 bs Bs bs b= 0 Bb = bh 0 0 2 2 8 Bo 2 bh 2 be bs ph eho Be 


OSO0l2e 051503 
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2s: TSTB 
3s: 


aRPCS 
aRPDS 
aRPCS 
4$ 


#89, RPDS 
S$ 


cs: MOV #1$,LAD 
4S: CLR JRPCA 
aRPDA 
#-2, JRPWC 
SOUTBUF , JRPBA 


BIS #17, aRPCS 
6S: TSTB 3s aRPCS 


BPL 6$ 

TST dRPCS 
BPL 1$ 

HLT 

MOV #1$,LAD 
SCOPE 

BR HOMERS 





*CONTROLER READY? 
:DRIVE READY? 


RORS 
yore SEEKS 


te UP Se6P LOOP 


;SETUP FOR CYLINDER 000 
; SETUP FOR TRACK 00, SECTOR 00 
SETUP 2 WORDT ANSFER 

INTO OUTPUT B EF 

;READ WITH NO IMPLIED SEEK 


BR TF NO 


; ERRORS? 
;BR IF_NO ERRORS TO MORE HOME SEEKS 
OR SEEK hie ror ies TO CYLINDER 000 


A READ OF 0 
SETUP FOR SCOPE LOOP 


;TRY TEST AGAIN WITH NEW DRIVE 


; THIS BOUTIN Ree ORES THE LOADERS FROM 8K TO HIGHEST NON MEMORY 


: MANAGEMENT 

RELOAD: MOV #34000, RO 
MOV MEMSIZ- Ri 
BIC #3777, R1 
MOV ne SRERRVEC 
MOV #340 jOHERRVECHE 

es: ed (RO)+ »(R1) 

1S: MOV #6 Mati 
CLR GHERRVEC+E 
CLR 
CLR ooareG 
MOV #176,PC 


;ERROR MESSAGE HEADERS 


Top. 0 OF LOADERS 


MEMORY 
AKE IT A 1K TRANSFER 
CET UP FOR TRAP 


;RESTORE LOADER 


;RESTORE TRAPCATCHER 


;SET LOADER FLAG TO LOADERS AT TOP OF MEMORY 
FINISHED 


EVEN 
MES1: .ASCIZ <15><12>/END OF PASS 7 
MESIA: .ASCIZ <15><12>/RPER= / 
MES2:  .ASCIZ <15><1l2>/RPCS= 7 











023606 020075 


foro 

Bu 

foro 
& 

2 

2 

5 


rsarensarentata 


Pr 


gee2 023760 Piet 


HS 
8 
e 
R 
2 


e439 024115 
Oe4tlee2 


000 


042524 
020117 
052012 


051105 
047440 
036522 


052123 
OSliee 
OS341e 


020124 
051440 
000040 
040520 
052440 

000 
052412 
047516 
046131 
051012 
047516 


041412 
000 


C RELIABILITY TEST MACY11 27(722) 
OZRPB.P11 #%% SUBROUTINES x## 


042120 
040503 
042120 
040503 


O46S05 
036522 


020124 
O4e2Se3 


O44S16 
020056 


000 
040505 
020056 


046131 
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MES2A: 
MES2B: 
MES2C: 
MESeD: 


MES4: 


MESS: 


MESSE: 


MES7: 


MES8: 


MESS: 


MES10: 


MESI1: 


MES1le: 
MES13: 


MES14: 


-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 
-ASCIZ 


-ASCIZ 


415><12>/RPDS= / 
<15><12>/RPCA= / 
<15><12>/RPDA= / 
¢15><12>/SUCA= / 


€15><12>/MEM ADDR= / 


<15><12>/WAIT 5 SEC. AND TURN OFF PDP-11 PWR/ 


<15><12>/TEST NO 7 


¢15><12>/TOT REREADS ON ERR= / 


«15><12>/STAT ERR/ 
<15><12>/WD CNT INTO SECT= 7 
€15)><12>/PAT IN USE= / 
€15><12>/UNIT NO. 7 


/CYL/ 
¢15><12>/READ NO. 7 


(15><12>/CYL= / 
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DZRPB.P REE SUBROUTINES #e 


5 

352) 024125 O15 O4401e O4OSOS MESIS: .ASCIZ <15><12>/HEQD= / 

scee Oe4i32 036504 000040 

3eSS 024136 005015 O42523 052103 MESI&: .ASCIZ <15><12>/SECT= / 
020075 ocd 

3258 024147 O15 O41412 O46517 MESI7: .ASCIZ <15><12>/COMP ERR/ 

3259 024154 O201e0 051105 O00le2 


61 O24162 OOSOIS OSH1OS O42520 MESI8: .ASCIZ <15)<12>/EXPECTED / 
seb2 024170 052103 042105 000040 


3263 
3264 024176 005015 O4%2See 053103 MESI9: .ASCIZ <15><12>/RECVD / 


3265 Oe4e04 020104 000 
3eb6 207 O15 O4870le O20117 MESeO: .ASCIZ <15><12>/NO UNITS AVAIL/ 


3268 22 000114 
aco) asics? O00S01S O4eSee O4elOl MESe2l: .ASCIZ <15><12>/READ CNTR = / 






e244 0200 40 
Oe4eSO 005015 best? 051522 MES22: .ASCII <15><12>/LDRS MOVED TO 8K/ 


05204 
Oe4¥e72 005015 047524 051040 eASCIZ <15><12>/TO REST LDR START AT LOC / 


7 0 
§ 045412 OS0111 MES23: .ASCIZ <15><1le>/KIPAR2 = / 
020062 


1101 
342 000040 
3283 o44 penne rg O20040 MESe4: .ASCIZ / KIPARS = 7 
3285 024360 Usl ass 036440 020040 


3287 024367 O15 O4S412 OSOl11 MESeS: .ASCIZ <15><12>/KIPARY 
020064 020075 


1] 
“ 


020040 Oe0040 de0040 MES26: .ASCIZ / KIPARS = / 
3291 Oe44i2 Oe0040 044513 040520 

O32eS2e 036440 020040 
3293 Oe44e6 000 
3e34 + Oe44e7 O15 O4S41e2 OSOl11 MESe7: .ASCIZ <15><1e>/KIPAR6 = / 
3295 34 051101 020066 020075 
3236 9Oe444e 40 


S 
1 TE 
R 


3298 O24444 005015 051120 O41517 TIMO:  .ASCIZ <15><12>/PROC BCKGRD TEST TIMED OUT/ 
3299 O2e44S2 041040 O45503 951107 
020104 O4e5e4 052123 
3301 024466 O52040 046511 042105 
sae 024474 047440 052125 000 
3304 sCONVERSATION TEXT 
3305 ; 
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DIRE. FLT 


oa 


,] 
STS ST STs tnt et ete 
WO IMU s duu 


taststastastanes 


MURA SG A Wasi le 


Bie 


peo acu ae aa 


pee SUSROLTINES ee 
O24501 _ O15 051412 O4zIe4 SPECNES: 
Pevi0e OS1iC] S010 Oyele: 

14 Oles O823130 951105 
Oe4S22 O82eS22 036504 O00040 
024520 o05015 o40S504 Oo40524 CONI: 
024536 0 OS1505 20124 
024544 7117 OS4514 020077 
hoMaed Revote 030049 Oedle2 

be451 
peiees ois 412 046125 CONE 
eo4o +4 


015 O4701e O46S25 CONS: 


O44S10 CONS: 


C2 
~~ 
wn 
tw 


bs 
e 
i 


CONS: 


Bara 
ptt | 


CONE: 


: 
wi 

2 
tees 
Bas 
co 


R 
ro 
i 
oO 
O- —W 


a 


& 
R 
R RS 


CON?: 


ie 

2 
3 

Be 


CON7A: 


= 
mn 
4 
3 
8 
i) 


nae 
: 


R 
ye 
2222 
BEOKzS 


CON7B: 


B., 
in 
SR 
—s 
= 
= 
8 


-ASCIZ 


-ASCIZ 


~ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


~ASCIZ 


.ASCIZ 


BOb 


eASSIZ §=(15)><¢12>/STOARD WOS XPERRED= / 


¢35><12>/DATA TEST ONLY? (Y OR N)/ 


(15><32>/MULTI DRIVE MODE?(Y OR N)/ 


(15><12>/NUMBER OF DRIVES 1 TO 10 OCTAL?/ 


(15><12>/WHICH DRIVE?/ 


(15><12>/OPTIONAL WORD COUNT? (Y OR N)/ 


¢15><12>/LENGTH? (1 TO SWROCT)/ 


(15><12>/STARTING HEAD?/ 





(15)><12)/00 YOU WISH TO SELECT THE DISK TEST ADDR?‘Y OR N)/ 


€15><12>/STARTING SECT?” 





ee FP Se eee Pe ee ee 





ae ee 
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"gee SUBROUTINES Hae 


OeSii0 O42S23 0S2103 000077 
peel ie OOSO1S OSel23 051101 CON7C: .ASCIZ «15)<12>/STHRTING CYL?/ 


RP} 


z 


Pl 


os 


aba 3 
bik 
Pe 
2 
ee 
2 


1% 15 OSO117 O4OS24 CONG: .ASCIZ <1) <12>/0PTAL DATA PAN NO. ?/ 
Bearis Bapsey | Sunes 


3300 sete Basis: paseda 

3372 0251 sates 0000 

3373 posieu 1S 051127 OS2111 CONS: .ASCIZ <15)<12> /WRITE?¢Y OR NDZ 

si5e PeeteS esete Peller peciit 

Sire Oe5e00 O201e2 OE¥SIE 

3578 025205 _O1S OS3412 OWNS22 CONIO: .ASCIZ <15)<12>/URITE CHECK?(Y OR N)/ 

$303 psests Aigess Sadda0 paseie 

335) Gsesse. Seite Baro4D pooner 

3339 QOSDIS 42522 O42101 CONII: .ASCIZ <1S><12>/READ?(Y OR N)/ 

ce me ee 

338 D47040 000051 

3387 025254 O0S01S OS¥SO3 020114 CONIS: .ASCIZ <15)<12>/CYL “Am? 

3389 gpesbe 3 Pegs OAS 

a0 pasee7 OIE ONINIZ O¥b191 CONIG: .ASCIZ <15)<12)/0¥L “B77 

3362 Oee302 O0S015 052116 CONI7: .ASCIZ <1S><12>/WANT HEAD ALIGN ROUTINE?(Y OR ND / 

3363 055310 O44040 020104 

3304 O56316 046101 043211 Oe0116 

3395 Di7ece Oseles ONLI 

es Ge ee Es 

S335 foes = IS sis 105 CONI8: .ASCIZ <1S)<12>/SET SWCH THEN PRESS CONTINUE. / 

Saa0 peeses osiae pares peBttB 

he ey Bis Be Be 

3403 7117 052516 

ie LEVEN 

He O25¥Oe ONSDIS Os9523 O¥4103 CONIER: .ASCII <18)(12>/SHCH OD-04 = HEAD/ 

Supe peeuee oa Saaosn | paaebs 

Sua BSeNay Oke Sime 41527 VASCII <15)<12>/SWCH 08-10 = DRIVE/ 

oH ie Gat Be Bie 

3413 Oee4S2 053111 1 

et O15 52012 943517 LASCIZ <15><12>TOGGLE SW O07 TO SELECT NEW HEAD AND/OR DRIVE’ 
is D¥b107 O20105 Ossee9 

Sule 020067 pa7eo4 

34]? O26476 051440 O4610S O41E0S 

3418 O20124 O42516 020127 


oe a ene cee = eee one eee mee = 


3419 OesSle 


C RELIABILITY Yea en tiered é7 (732) 


UTINES ### 
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CON1S: 


END: 


-ASCIZ 


-ASCIZ 
-EVEN 


(15><!2>/WANT CONTINUOUS HOME SEEKS? / 


«15><1e>/7ENDZ 























DZRPB.P1i eee SUSROUTINES ### 


ais ; 


DISK 1/0 REGISTERS 


Ee 
BIRRZ 
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xs 
39 VECTOR: 254 sDISK T TRAP LOCATION 
333 SSee86 oeerie: Sec. SINTERUPT PRIORITY ASSIGNMENT 
Sl eSb05 176714 RPCS: 176714 'DISK CONTROL REGI 
5 1 715 RPCSi: 176715 ZUPPER BYTE OF CONTROL REGISTER 
2443 OSee12 176716 RPC: 176716 :WORD COUNT REGISTER 
av G51 RPBE: 176760 :CURRENT AQOR. REGISTER 
16 i767 RPCA: 1767 CYLINDER REGISTER 
344— 25620 176724 RPDA: 176724 ‘DISK ADDR REGISTER 
34? Oese22 176755 RPDAI: 176725 : TRACK ADDRESS 
SHB Gesbe¥ 17671 RPER: 176712 ;ERROR REGISTER 
3449 17671 RPDS: 176710 IDEVICE STATUS REGISTER 
350 25630 176734 SUCA: 176734 ‘SELECTED UNIT CYLINDER ADOR REG 
3ue2 
3455 sDEDICATED REGISTERS 
Sue 2632 FLAG: 0 SINTERNAL PROGRAM FLAG WORD 
315 Oe5es svt: 0 {OPERATOR SELECTED CYLINDER 
3458 25640 eee; OPERATOR SELECTED SECTOR 
Sueg peeeue WROCT: 0 WORKING WORD COUNT 
3460 Doses CYLINDER: 0 SWORKING CYLINDER ADDR 
3461 O25646 OMA: 0 {WORKING DISK ADDR 
sues poetes PM 8 sDATA PATTERN INDEX 
Sues peeeed BUF: 0 tWORKING DATA BUFFER 
Si55 Oe5656 SWROCT: 0 :STANDARO WORD COUN 
S465 SAVE: 0 
RUE? Deseb2 OSKNOR: 0 sMAXIMUM UNIT NUMBER 
| Bie esses BLOCK: 0 
| 3453 Bsees8 TNE: “CONTAINS START OF INPUT BUFFER 
3471 025672 RDERR: O sREAD RETRY COUNTER 
372 GeSb74 ACNYX: 0 
on es eo! 
| 4 WORK : 
«Soe BB eo0a WORKi: 
| 3477 025706 WORK2: 0 
| 7B ge5710 WORKS: 0 
3479 025712 WORK: 9 
Oee7i4 CYLA: 
es ae | 
Sues | DBe7Be ara OB 
| Hee oases CORFLG: 0 sWHEN =0 LOADERS ARE AT TOP OF MEMORY 
| 346 
| 3487 EVEN 


so cm ee eee - - a ee ee 





DISK RELIABILITY TEST’ 
«HALT ON ERROR’ 
-LOOP ON ERROR’ 


FOG 


71 
€15><12>¢12>"SWITCH OPTIONS’ 


*MD-11-DZRP8-C 
(15>¢12)"SW (15) 21... 
(159<12)°SW «14> 21... 


HEADER: 3 ' . €15>< 12> 
-ASCII 
-ASCIT 
-ASCIT 


$5 Q2byb1 OUTEUF: AS I 


O4-NOV-76 14:18 PAGE 


g22 seca ae 


: —— 


27(732) 
DeéS0e 


Yll 
TINES #&# 


MAC 


T 


z 
ag ty 
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= Ps z ra] x e 
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RE 
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C 


RP11 
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SSS Lb cic merci his Map MC MLE MUnenn hy 





a en me ee rs ee we ee ee 


cr 


S544 O26414 047117 O4eS26 051522 
3545 42e 





OS2101 O47511 Oe0116 
026430 047515 O42S04 
pene eASCIT <15><12>° TEST SELECTED 0 - 2 GIVES ADDRESS CONVERSATION’ 


3551 


Es 
sien 


z 


S288 
SSE 
a 

3 

R 

R 


020040 eASCIT «1S><12’ TEST SELECTED 3 - 7 GIVES DATA CONVERSATION’ 


= 
ee 
! 


ee 
4 
Ras 


: 
Re 
ome 
on 


ASCII <15)<12>"SW <G7> =1.... INHIBIT RANDOM SEEKS DURING DATA TEST’ 


am Be 
m~ £5 
R 
£ 
=e 
Nte 
ete 
zn 
™~ 


: 
aoe 
ron 
: 
: 


042040 


i 
oO 
Seal 


ASCII ¢15><12>"SW <O6> =1.... INHIBIT USE OF MEMORY MANAGEMENT’ 


Be 
: 
ae 
= 


aus 
Tore 
OVO us) 


5 
: 
4 
g 
j 
x 


ASCII <15<12>"SW <05>....... COMPARISION ERRORS PRINTOUT’ 


we 
ase 


8 


GO6 
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| 
| 
| 
| 
! 
| 


AALS MER RRA SU 


UT 
rey 

os 
oO 
— 

—au 
bas 
ond 


RRR 
268-8 
R 


comes 
: 


22 
B 
oe 
Be 


020127 eASCII ¢15><12>’SW <O4....... REREAD INFORMATION’ 


ne 
R 
a el 
es 
—_—_ 
mw oO 


3593 


a 


Rae 
REEL 
8 
ae 
mee 


-ASCIZ ¢15><12>’SW «03> =1....SELECT TEST IN SWCH 00 TO Qe’ 
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DZRPB.PII *% 
3600 027114 030074 037063 O36440 
3601 067182 027061 027056 051456 
3602 927130 O46105 041505 020124 
3653 7136 o52183 o4444o 
7144 116 053523 044103 
3605 Oe71Se2 © O20060 O4752 
3% 027160 930040 O000be 
360 ocooo1 END 


ees ne ee ne + ree wee ees 


or es eee we 


eee ee ee 
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Scenes 
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ee ee 
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025674 
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60e# 603% 604% 605 697% 2698% 701 


8 
33838 
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e40s* 2411 2413 e414# = 2415 C417 
947% 1008 1155 253% 1382% 1444s 


e146 e919% 3464s 
23398 
2180 42 2736 2764 2846 


1 
614 662 715 898 982 1230 
458 589 597 696 830 887 


1776 1916 
1310 1467 


SA? 701 709 835 892 939 


e549 

1052 

1613 1640 1658 e166 2660 

1853 1644 1668 1851 ec3e =s_s« 2306 
1430 1545 1682 eccSB ebbe 


l : 
1774) = « 184 S968 )=—sshe09ebGC29822D] 





1767% 1828% 
26108 





1837% 


1990# 


2703% 


2667% 
1549% 


1405 
934 
1925 


1S21 
967 


2718 
2733 


2928 





1999% 


2706 


2672% 
1590% 


1678 
962 


1963 


1558 
975 


2776 


2931 


2710# 


2677 
1631% 


1862 
1365 


1729 
1077 


3146 







2711s 


2679% 
1728 


2006 
2018 


1970 
1187 








2712 





34688 
1909 












eele- 
2264 


1236 


ee 
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DZRPB.P1i CROSS REFERENCE TABLE -- USER SYMBOLS 


CON O2S2S4 3035 33878 


15 

KeNIB 7 3043 908 

kent 021 Ses 

ON18 106 3998 

CON18A 406 2108% 34068 

CON19 = 025534 302 s4ee8 

CON2 024563 454 33188 

che % Be 

CONG 024740 494 = 33428 

CON? =s-—«sOe24770 S23 

CON7A 25011 508 33518 

CON7B 25075 $31 

CON7C 38025116 515s: 33658 

025136 S40 3369 

CONS 025164 S53 33748 

CYLA 025714 ns abe 672% 673% 755* 756% 757% 758% 12978 298% 1299* 1300%  304C* 

CYLB 025716 3048% 3080 34818 

CYLIND OeS644 4eBe 645* 656 £87 689 708 711% 771% 774 819 864 877 918% 
Sel 930 932% 943% 956 958 974% 979% 1004% 1153% 1170% 1193% 1219% 
1251 1380% 446% 1499% 1713% 1900 2017% e2064* 2145 224] ee95* 2327% 2328 
2s40% e347 e676 34608 

CYL 022500 441 30198 

CYLS1 OQ227e0 30618 98 

DATAT Olee7e 616 623 1679 1702% 

DATP = =©912430 172e0)=s «i7eSe) 18 

DATTES 457 4758 86481 

DECBLK 016234 23168 2325 2330 

DECCY O15416 els? 3=621918 

DECTK. 015372 2183 21868 

DELMES OiS322 2170 = 21778 

DISBUF 016160 839 896 1742 1756 1847 23068 

DISPLA= 177570 SOs 

DKINT 015224 1717, 21598 = 2401 

DKI1 015530 e167 22098 

DMA OeSé46 429% 770% 776 779 781 783% 807 868 873 875% 879 886% 917% 
100S*# 115e# 171% 1172% 119e% leede leSee 1379 144S* 1498* 1714% 1908# 2016+ 
Chae e144 = 2296 = ee97* = 2311 231S* 2319% 2320 2324% 2226% 2339% 2346 2675 

DREAD Ol2616 1745 1758 

DSKDR O027le 4598 465 468 

DSKNOR OeS&6e2 anos 469% 470% 472%  j473% ##jS78% 580 S83 S85  S87e ses* S90 2022 

DSKNOS O01 644 74 916 1903 1344 1378 2057 2143 2233 8©=©6©23828 6306! 

DSKRD 012676 17718 = §=1817 1823 

ENTVEC= 40% 

END 025573 e123. 4 34e98 ~ 

EOPTST 007110 1iSe# 121 

ERCOUN arte 2610% e72e0* 3474s 

ERRFLG 001240 1S9 161% 210% 2138 1811 1973 2159% 2163% 2175% 2234  2657% 

ERROR OOiile 1908 2397 

ERRORS O01246 ell# 2168 

ERRPC 001252 200 e188 

ERRVEC= 000004 358 409% 410% Yale eee 2779% 2780% ec840e e844e e84S* 3175* 3176% 3179% 
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DZRPB.P1L CROSS REFERENCE TABLE -- USER SYMBOLS 
3180% 
ESH 012662 17688 1835 1839 
EXGEN 017304 2493 24988 
021 27708 2866 - 
pxTELG BO 740 598 6078 Pi 
17756 689* 803% 807% 808 810% 813% 814 819% 222% 622 825% 826 877% 
879% 958% 11e5* 1137% 1205* 1278% 1280 1478% 1534% 16195* 1664 Ys 114% 
2574 eS8l# e6eS* e629% 2634% 2638% e2b41*  eb4e 
1000 27438 2748 
EXTOR O16S6E 2344 a 23778 
EXTEND Ole2i0 167S# 1688 
EXTMEN 720 424 27338 
EXTPP 014510 2027 20 20408 
EXTRP 12236 1S76 1674 16828 
Oleese 1571 3 1685% 
EXTTST 011454 15718 
EXTT1 011772 88 
FILDAT 017106 e45S# 2457 
FLAG 025632 4Ob* 400% 434% 4Sox 4S8* 4gS* Sos* 512% 547% 
572 Seg* 597 601 6 1396 1425 1430 1487 
1726 1729 1744 1758 1785 1840 1842 1851 
2018 20 e0e4* e2026% 2093 e232 2306 2337 2342% 
e453 2613 2b 2776 e789% 2920% 2928% 2929 
FNCT 0 2149% e2151% 2152 21548 
015134 784 ese 922 1015 1023 1048 1095 1104 1113 
le2ze 1259 1268 1291 1329 1383 1447 460 1500 1514 
1632 6 7 1747 1772 1914 1923 936 072 2083 
GATTN 016776 682 e4e48 3060 
HEAD 023154 3025 31048 
zs 405 423% 34888 
HINUM 001700 285 306% 310 1896 2618 2638 
HINUN 017310 2468 2470 2480 2494* 25008 
HISAV 017314 e468% e50e8 2618 
HLT = 978 658 EGY 676 680 eg5 691 695 749 
804 816 8 65g 681 gs4 960 1021 1029 
1110 1119 1127 1138 1167 1185 1189 1200 1206 l232 
1287 3 1308 1312 1316 0 1335 1362 1351 1453 
1520 1536 1S 1560 1564 1598 1602 1611 1615 1621 
1646 1656 1660 1666 1670 2078 2106 2116 2168 2263 
3003 3071 3 3145 3160 
HLTADS 001244 201s 202% 203 204 else 
HLTCT$ OO0le4e2 203% 2l4e e505 2es42 2545 2549 
HNFCK 00 1250 1289 
HNF 1 0 12918 1321 
HNFe2 010076 13238 336 
RS 023274 3032 31308 3136 3164 
CNT 001000 147% 426% e0e8* 2031 
025670 947 Ses 353 2765* 2766% 34708 
INCSEC 0 e3ll# 2318 
INCSUR 016244 23198 
| INDRVE 014434 2023 e0ebs 
INIT 016642 403 915 1002 1429 1877 239748 
INPUTS 002014 mit 314 337% 348 389 450 456 490 510 
INTCK 004470 642 7208 
INTEXT 015560 2162 2213 2215# 
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OZRPB.PLi CROSS REFERENCE TABLE -- USER SYMBOLS 

NTFLG O04S00 651% 678 720% 7eee 1771% 1935% e2222% 2654 “a fn 
NTO 015614 el78e 2179% 2182 2184* 2186 el8s* 2183 e2191% 2199 2204 22258 
NTl 015616 2177* 2192% 2196 2198* 2199% e202 2e04* 2207 ec22b8 

IOTVEC= 000020 38% 

KIPARO= 172240 768 412%  1578% 

KI = 172342 77% 413% 1579% 
IPAR2= 172344 788 1580% 1628% 2553 2781% 2785% 2787 2794 2878* 2899 2968 2314 2925 

KIPAR3= 172346 739% 8 2557 e88is 
PARY= 172350 808 S61 2884x 

KIPARS= 172352 81a e565 2887% 

KIPARG= 172354 Bee e569 2890% 

KIPAR7= 1 838 414% 1577% 

KIPDORO= 172300 848 41S5* 1581% 

KIPDR1= 172302 Sa 416%  1582% 

KIPDRe= 172304 86% 1583% 2782 #2790% 

KIPDR3= ! 878  e28S0% 

KIPDORY= 172310 88%  2853% 

KIPORS= 172312 8398 e2856% 

KIPDR6= 172314 90% 2859% 

KIPDR7= 172316 918 417% 1S84% 


1488 163 703% 766% 837% 894* 941% 969 1064 1141% 1210% 240% 1289% 
1321# 1336% 13972% 1394% 1481% 1507% 1523% 1537% 1565* 1626 167e% 1740% 1754s 
1835 1921% 1930% 1997% 2079* 3149%  3162% 





LCONM 002570 433 437% 

LDAT  Q12462 17318 1740 1743 

LORFLG QeS7e4 2834  2837% 3182% 3484s 

LOKOUT 007414 12188 1240 

LONUN 001702 284 293 305* 311% 1895 2617% 2634 

LONUN 017306 2467, «2469 28478) 892490 8 2499# 

LOSAV. 017312 2e467% eS0l# e617 

MAXREF 021026 e740 «= 27528 * 

MAXRF1 021034 e746 8627538 

MAXWC es e828 2830% 28738 2933 

MEMSIZ 0c1750 1432 1442 1475 ee Ss 1 e758 2838  2868% 3173 

ST 010526 bee 1406 

010520 14328 1488 

MES1 3550 2030 3831 

MESIA 023567 e514 31918 

MESIO Oe404e 1031 1056 

MES11 024061 600 32398 

MES1e 885 32438 

MESI3 24101 el72 e715 

MESI4 024115 e195 = 2272 

MESIS Oe4125 e201 

MESI6 024136 ec06 Ss se? 

MES17 024147 es48 32588 

MESI8 Oe4ibe 2573 §©=6. seb 18 

MES19 24176 2577 

MES2 023600 e518 31948 

MESCA e361) 2510 31978 

MESCB  Oe3bee eSee 31998 

MESeC 023633 eSe6 38 320 

MESeD }  O23644 e530 38=— 32038 

MES2O 024207 593 32668 

MESe1  Oe4e30 2539 32698 

MESee Oe4e ebb2 3832728 


te ne te a a ee nn a 
' 


RP11C RELIABILIT 
DZRPB.P11 








MMBK 
MSG. 017316 
MSTR 013276 
MULCHK 14360 
NONEX 011336 
NPR. 022250 
NPRONT O22472 
NPRRET 022464 
NPRI 022474 
NUMS 002334 

1246 

3250 


017764 


Y TEST MaCY11 €7(732) 


CROSS REFERENCE TABLE -- USER SYMBOLS 


639 738 
741% 914% 
2806 
280e% oan 
777 
206 eS0Ss 
1760 1849 
1856 2007 
ZYe 
1483 154S¢# 
1737 1751 
2943% 3001* 
2221 30088 
E944 30118 
346% 354% 
4YBY4x 4gs 
548 3038 
2779 27878 
519 
ll 
563 
769 77e 
1126 1129 
1438 1439 
2447 2eble 
S448 463 
353 355 
1490 1864S 
1489 1721 
2794% 2795 
1491 1724 
1725 C44Ss¢ 
1424% 1427% 
1078 108948 
430% S48% 
2647 2649 
e454 24598 
24SS 25894 
25908 
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1421 1704 


1589 


e832 8=— 28708 
18518 
20168 
1778 1918 1927 1965 
30108 
360% 366% 371% 379% 
497 501 503 518 
3040 3046 3048 3054 


B47 862 920 921% 
1SS 1157 1175% 1202 
1444 1456 1470 1728 
e760 2765s 3154 =: SHES 
479 496 517 S25 
361 367 372 386% 
2896% 

1763 1844 1880  2877% 
e797, 2799s eBOL* «= CBD 
1766 1846 29084 

1675% 1884*  2002% 34698 
1141 

550% 1709 
34638 
2464 
2641 


1708 


1873 


1876% 


ene 


395% 
520 
3057% 


2807% 


1861% 


32188 


e151 


464 


S26 
3058% 


2808* 


1883% 


28694 


466% 467 
528 $34 
3059 = 3135 


1909 1940 
3037 8§=304S 
2810% 2812 


2913* 


1044% 
1324% 
2060 


3053 


2816 



















S43 









1089 1123 
1382 1433 
2067 #2108 
3134 

es7e#e 2926 
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DZRPB.P CROSS REFERENCE TABLE -- USER SYMBOLS 
FATIO 20002 259748 

PATIi  O20004 25988 

PAT1l2 020006 25938 

PaAT13 Q20010 2600s 

PAT Oe0Cie 2601% 

PATIS 020014 eb0e# 

PAT 17766 esols 

PAT 17770 25928 

PATY 17772 25938 

PATS 17774 este 

PAT6 017776 es95# 

PAT? 020000 25968 

PC =%000007 18% 145% 174% 18S5*# 205% 206% 243% 279 283% 307% 





345* 353% 355% 361% 367% 37% 383% 


533% S41% S4ok We 561% S68 606% 
915 1000 1002 1033% 1058% 14e3% 1429% 
17e5*# 8 1731% 1732e% 1737% 742k 1 1751% 


3009 3022% 3029 303% 3037* 3044*  3045* 
| PORS 021756 Pez2x pe33sx 2847 28718 2877 2897 2922 
PFD CO 2055 21288 2129 
PFTST 014514 625 pos4e 2079 
/PFTL © 014716 20928 2101 2136 
PFU 15114 2128 2133 
PFVEC = 000024 39% 
PKEX$ 002270 2818 387 
| PKEXIS 002274 380 382 
PKS 332 354 357% 358% 359% 360 363% 364% 
en, 060 lC lO DCS 398% 389% 
| PRINTA 001370 PUD  —s- BY 
PRINTB 001400 545 suo 44E 606 2865 
PRINTR 001344 205 e4ig- 1033 1058 2120 e512 2516 
PRINTS 001356 aude =H 749 +913 +1000 {423 1706 
203 2208 2274 e541 2554 2558 2562 
PRINTS 001264 ft ae Po ee ee: en, ee 


/PRI1 = 000040 see 

PRIe = 000100 31% 

PRI3 = 000140 308 

PRIY = 000200 eos) =—s« BB 1715 1885 

PRIS = 000240 284 

PRI6 = 000300 274 

PRI7_ = 000340 ebs 1872 2056 2398 e400 e402 2403 

| PRNTFS 001302 195 2e4 ee7# = 404 443 447 453 
See §30 539 552 559 566 599 
3105 = 3131 

W = 177776 “48 8 6648% =61715* §81885* e403%  2739% 


! 
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D288. P1i SROSE REFERENCE TAGLE <- USER SYMBOLS 

RapT2  OCHS34 r428 

ROT, Dosele Sige 484 : 

RANDSM O1>14e a3, 2482 Bug Te 

RANDS  OC164 Sasa 1es4)0| 5633 

RANEX 013366 55 oigeg)SsSP Ie 

RANLOP 013642 1809 192] 

ROATAT 12330 17098 1860 1864 : ‘ 

ROERR  O2e872 ivkge 1813" «1814 (1816 «1824S s«deeGSCdLB32)S«dLERM® ««190* «1 975% 
1665 19841988 2ie4 «2172s Bess a71G 3718 

ROSECT 905302 bive «6348S 

REAOLS 002060 333-3398 

REAONS Q020S4 34 00OCt«CG 

| READS 001704 fice «6448S Sai issC(iSCiSS~SsiSODSCié‘éSECSC‘«i‘«‘ DY 

Sel siseS0B2S 3083S 303e 204023138 

'READL © DIBESE F377 BED 

[RECS 17760 bce 799% 600s 601 806s 814 618% 826 880% 959% 

1203, «1286H «1479 1E3S" «less «eeSe «6 IGE® «2lise 2878 0 2eaee 

| REDAC 915430 161 2185 2190 21938 

RELOAD O2a4e6 Sas4 S138 

RESOEN OTau44 5019 202s = s20ege 

RESTS OOD1064 17ee 307 385 

RESVEC= 000010 368 

RMEMT 010604 14398 «16771680 

“RMMENT O1156¢ iui 14978 

| RORBLK DIE7E3 by}2 ies 

'RPBA «25614 Si4ce 31S4e | 34448 

| RCA OSSEi6 esx “618 IMS# 1362 2058" 21Se 2177 Bese 25233062 

; 

“RPCS © oestoe ee gc OSS CiéS3: (‘és OC«SSsi‘iHC7N?:s(i‘i‘7]si‘i‘7S)SsC‘HOCGeeOSG 

: Buse Bas—(iéwkSCOC*é‘éiSeSO*«éaSSCBRGe 53 ogee Sa7—i‘iC(it‘«é 
Sede 4 65—«0—«—‘«aSSs«t0SSséG?)Ss«OSCSC«0EO«Ss«S?)—s«s1089s«sande «SCs«1id8 Ss 
1ii7,1i20Ss«1163—s«d'GS)~=SsdSL.~=Ssdd'S7~=s«d1186~=s«1198 0s i2ipe «= i2a7e. 1328 «123m SSO 

| 1361 1263 «1270~=S«édeveSs«édd27e~S«édeSS=SsCsd33si‘aB(siaSSCsa 1343" (1347x1399 

| See 1304 )«= 557" «19580 s1300s«diSe7e «= 138BSC«dGSe «O1389)=SsT4ODe «OC1449)SS] THe 

seg, t4e7—«s«dS2Ss«‘«dSOMSC«dS1® «= s818—S«s«ddS2Ss«édSeSsCdEOO is isa s«1800 

i607 «e09.Ss«de1,s—“‘é‘d2~SsC«ddeSMSs«édeS®«SCdd)Ss«dde:«Ssé«édED)=Ssdeed)=oesS)=SOleeSs = B09 
isles 1819 1970 1980s 1981 209% 2068 2074 2076 2085 20928 20sde 21See 
5160 «2169s Bale «21S BaGGe «Begs «= S2B] 40334 0S Bavex «S276. Saeg% 5519 57 36% 

4 5557 « 3064 3069 ‘S074* 3075 3081s 50s? 3092s 3093 «sigs ©3136 

| 3139 3143s 31eS* 3186 «0 31se S448 

RPCSL © g2Sb10 cade 31378 4438 

: Ose29 763. «[34me «B144e «2178 «2527 s«3l4e «= 31S2e 34468 

RPOAL © OSeED2 B06 | 34u7e 

RPDS OSebee EBI 662 (bSBC‘ézkw«S*2OCOCGS]OCO70L:—“‘rSQ!SC*CO g g92 
334 See > 1308 464138001385 s1370 1403 1883 2070-2100 

) 2509 2212 Bai? Boe7e «BREE SC227BeC«B):SC‘é‘ékkSSCOBSL . 

| 5679s Soeex 3080 3096 3097" 3119 314i 3146 «3449 

“RPER © O2SE24 ios? «ies «= i230s«13i8«=Ssissd) «slo BS1S Ss 344s 

RPuc «Oeee 12 13eex  2147% 2idBe 3153" 3443 

RRANEX O13420 18778 

Rl = 000006 928 “HIS 416 =Sss47,—«<SBL=SsdSB2 ©=s1SBBSs«SB4Y «=sB7B2«=Ss«s«@SD «SO s2BSQ)s«BSGOC«2SG 

RUROK  BOb2E2 10038 1407 

RO” =~DO0000 18 173 479% OMe BaBe2a7e 303305 7 348 350% x 

| 389. 3908 609% 610s ies 613 53x bax boos &67% Sade «| Paes 

751% Sot 3 o2 Fro 776% 786% 87% 790 847% 1006# 
1035 «1066 1072e 1090" 1092 11298 12248 





Ce ee er ee ee 


Rl 


=%000001 


025720 
016116 
SEKDON O16120 


enna! 


Y TEST MACYI1 €7(722) 
CROSS REFERENCE TABLE -- USER SYMBOLS 


ees 


SRR path teers sa 
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1280 l2e8e2% 1286 1293% S4* 1301 1323# 1324% i325% 1326 
1432 SS# 14S8# 1492% 1494s - 1509% 
1Se ll# 17i2 178e% 1788 1806#  1938% 
bls 1S 2119 e44S*# 2451 e453 C4694 
88% 83% 2784 e814* 2818% 2838%  2839% 
e84ss 79% 28822 269S* 2888* ec896# 2899s 
2308* 13 
eS22% 77 
180% 
B48e 
1089* 
1457# 
1794 735% 
1891 
1955 955 
e447% e4S0e 
e3so# 2951# 
* 2964s 
2e976% 2977% 
2990# 
181% 
1037%  1038% 
1440% 1 
1604* 1617 
e47S# 24 
182% 
1478 247 1% 
183% esl 
e48S# 2494 
184s 
332% 
530% 
884s 
1104% 1113# 
14e0% 1447% 
77e% 18308 
l22% gaia 
eS7e# Bae 
3042% 3050# 
e642 Cb4b% 
e764 2766 
345 
767 
1395 1482 
1998 
34568 
1913 19 
e2e37*# 22 


REFERENCE TABL 


RP1IC RELIABILITY TEST MACY1I E7(732) 
OZRPB.P1I 
SHED Oe5636 528% 2297 
SkTStT  O10160 13438 1372 
SPs =«000005 178 163% 
182 183 
811 1665 
2251 2252 
2903 = 2925s 
SPECME 24501 444 33078 
SRO = 177572 7580s 
SSEC_ ©—-_- G2SB40 S3he 2296 
START 002336 145 4018 
STATUS OeS604 643% 17188 
STKPTR= 000500 Sas 030s «402 
025630 687 690 
SWITCH O25650 2616* 2623 
= 177570 498 157 
£09 715 
1925 1963 
T O2S656 44s 439 
SKSUR 016304 2323s 2326s 
T = 900020 ose 
TBITVE= 000014 378 
TESTNO OeS676 637% 640 
1874 2533 
jTIMO | e444 3005 32988 
'TKB = 177562 468 326 
| TKS = 177560 sis 
'TKSR OO3164 49] coe 
|TPB = 177566 48% 236% 
| TPS = 177564 478 227 
| TRAPVE= 000034 418 
| TSTTBL = OO4004 613 6188 
| TTy 001562 204% 258% 
1422% 1705% 
516% 25198 
eb9S# 2701 
UP = =s- =-:900000 338 415 
ly = 000002 8 
| VECTOR OeS602 642% 1717% 
| WOCON 003074 4928 469-498 
| WERR 020300 2643 = 2654s 
| WORK  G25702 4 500* 
189S#  1897% 
311# 23128 
is 2382% 
31128 3114 
| WORK! 025704 1896%  1901% 
2687% 
| WORK2 025706 646% 660 
2644# 2669 
| WORK3 025710 647% 705 
| 34788 
WORKY  (O25712 946% 971 
0062 621 983 
WRCYL 005652 Sele 933 
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-- USER SYMBOLS 










34578 
167 168% 169% 170% 171% 172% 173% 178 1793 189 181 
184 ecg* 230% 234 esl 278 381% 402% 437% 438% 423 
eOS4# e2135* 2163 2175 ecel* 2222 2ec40% e2241% 2243 ec4éb 2248 
2253% 2283 62 2s9s* e290 
2926 ese 
418% 1S47# 
34588 
2253 225S% 
1685 20 
2102 2105 
ebecbe ebe8# 
190 
§53 
_ 1968 20Ge 
_ 503% 
736% 739 
35 34738 
326% 
227 
262 
183e%  1874# 
eSe3%  2527% 
2706* 27lex 
416 
2252 2eShs 
502 
S01 
1898 1 
2313 2320% 
e383% 2384s 
e460% 24 
i 3116% 
e689* 26 
707% 
34778 
709% 
975% 
9968 
941 


oo crete. anaes ee omee 42 ett one ee eee 





—_—-~ 








RP1IC RELIABILITY TEST MACY11 €7(732) O4-NOV-76 14:18 PAGE 84 
OZRPB.P11 CROSS REFERENCE TABLE -- USER SYMBOLS 


Oed2e6& 262? 868630 0S 63629 foe e646 2652 2655 







WROCT  O25642 cove 46 768k «= B41# «= 919* = 1005* §=1103* Illex 1154* 1169" 11918 1221% 1268%  1306% 
1381% 1437% 1455 1493 1510 2 46iS4Se «= }S8Ge «17ige «1762 «= 16eee §=1887 869 BO Ex 
2147 «= 343% «36h «= 2368 «= 2369" 9 2370e «= 2371* §92372k «373% §«2274" «2375 «HIN «= B44 
ell 2668 E7b3e EEGs 2769 abel# Bede cbeee ee?) 828 2833+ eSaSe | aHSGe 

WROINC 020236 esude e72 

WRICK 012536 1720-17448 

WRLG 13466 18868 2004 

XINCSE QIB41S P3498 «2355 «92360 2365 

XINCSU 918444 2353 23568 

2” = 000004 238 rg 

. ss O27 164 1438014481468) 2208) 228i (asiHGCC“(<ié‘éiak SOB SC279stié‘iSC?ti«éOB 
3378 «64512700834 65 0 891s (iss iC (EKG 
102 «1051 «= s«1088_~«Sss1107, ss 1116S ssa164 = ssBe«Sss97)s«st2e9ss12Ss«éit27~=s1332 = 1349 
5 1359 1369 1404 1450 3 1603 1817 1553 1595 1608 1635 1653 
1810 1820 i822 1992 1984 2069 2071 2075 208 2210 2216 2218 2277 
2279 2282S 2293s 2307-2738) 3120312234318 

PR 001536 ou7e = ou# = 50# = aS 2 267 «2708 «= 272Sssi277Sts«é 8 

[PREF = 001452 254 257 2628 

“PRL O01 424 2558 a7 

“PTET © Ool4i2 esis 


a ee 2 + ee ee 
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OZRPB.P CROSS REFERENCE TABLE -- MACRO NAMES 


5uSTST cane es48 4862951 0=— 2954 0S e957 e960 SHB 


. a 2994 
1358 204 1032 1057 2119 2511 2515 e519 2523 
OM le 
ESCAPE ls 
I le 
GETSWR ls 
D 358 415 416 417, «1581 =—sis82)—s—«éi«dtS8Besé‘édLSBNY~=—=sé27B2 
NEKTST ls 
ais 463 479 496 517 F35 533 s42 3037 
PRINT 1308 4 8§=6:199 276 322 332 592 £38 737 884 
1829 #1872 1991 2029 2081 2117 e2l21 2171 2193 
2517 2521 2525 2529 237 247 1eSSi e555 2559 
2704 2708 2714 3004 
PRINTF 1318 195 404 442 447 453 45g 475 486 
S88 fo5 SES S99 2860 3020 3028 3033 3041 
RAND 1388 1893 2633 
READ 1398 86449 45S WEE 478 489 495 509 S16 
3022 «3022 Ss3036 S044 )=Sss30S2 Ss 3133 
REPORT ls 
| REST 1278 307 382 
| SAVE 1268 282 344 
SDUMP 1368 640 739 912 999 1422 1705 1832 #81874 
| 22732 « 2s4O0SssiSS3)fsi2SS7)=0SsseSBl)2SfCSES)©=s S69 )Sss289S—Ss«27O 
| SDUMPF 61348 40445 2864 
| SETPRI 18 
| SETUP ls 
| SKIP vs 
| SLASH le 
STARS ls 
| Susu is 
| TYPBIN 1s 
| TYPDEC 1 
| TYPNAM ls 
| TYPNUM is 
TYPOCS le 
| TYPOCT is 
, TYPTXT 1s 
| $SESCA 1s 
| SSNEWT is 
wiry 1238 240 
Ba ls 
| ERROR 1288 187 
| ,HEADE ls 
| .KTL1 ls 
| ,PACK 1408 86341 
| PRINT 1298 221 
| RAND 1378 282 
| READ 13288 3ile 
lets 176 


é 


ne en ee ee ee ee ee. 








- nee ee ne ne ee ee ee Ee ae ee ae men neces eee = -os 


RP1IC RELIABILIT 
OZRPB.P11 

- SAVE 1268 
SC lebs 
. SET. ls 
. SWRHI ls 
SACTI ls 
.$SAPTB ls 
. SAPTH ls 
.SAPTY ls 
. SAST 1s 
-SCATC ls 
.SCNTA ls 
. SCB2D ls 
-$DB20 ls 
. SEOP ls 
- SERRO ls 
. SERRT ls 
. SMULT ls 
. SPOKE la 
. SRAND 1s 
. SRODE ls 
- SROOC ls 
. SREAD ls 
- $R2OAZ ls 
. SSAVE ls 
-$SB2D ls 
. $S820 ls 
. SSCOP ls 
. SSIZE ls 
. SSUPR ls 
. STRAP 1s 
.STYPB 1s 
. STYPD ls 
STYPE le 
STYPO lg 
.S40CA ls 
-1170 ls 
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165 

149 


2 :age a mene angen -s0- equa 0 ann meee 
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OZRPB. P11 CROSS REFERENCE TABLE -- PERMANENT SYMBOLS 
ROC 234 2% 238 239 301 304 e479 #82481 e483 e484 2486 2489 
ADD 22S 230 293 235 297 300 302 393 381 e682 )0=—ssi3seS =Sssis18S7s heBCiéiSD 2G 
2341 e415 e478 e480 e482 e485 e487 e488 2646 674 #2747 e766 2785 2818 2823 
e826 e832 2891 2899 
ASL eee e473 2898 e910 2911 2924 
ASR 1076 e316 2917 
BCC 1078 
BCS 10704 2999 
BEQ 158 194 2c4 e42 245 265 268 315 349 440 4ES 4 S46 573 
5398 £08 615 661 688 697 702 716 780 802 815 821 827 831 836 
860 874 888 893 899 931 935 940 957 963 968 1036 = Ilel 1124 
1e04 = 1351 1366 =: 1371 1906 = ss 1431 1468 1Se2 1542 1618 1624 641 1659 1663)—Ss« 1676 
1790s ibsgCiCiVe? oc 7COCISCsCi«iaSRC(‘<é‘«dC(‘édGISRC( <éi‘C‘dLSSRSC(<‘i‘éGSC‘i‘éz2L 1859 1863 1974 977 
1987 Ae 2019 2034 #2077 2103 5162 3 gan + | BR 40 ae 57 a Te ee 2267 
e 14 31? 0=— e3e3_— 3931 353 358 363 = e4le ~ enh eS OF 
eS4 eSSO e6e0 e645 e650 2655 c659 e661 2678 681 2686 2719 e721 e756 27% 
e798 «= e800 B17 BSP 5S S8 2880 83 2889 3073 = 3078 §=— 3085 
3091 309% 3147 
BGE 1827 =: 1989 
BHI 13903 1906 2648 
BIC 331 438 470 $51 604 £10 8 1401 1436 ©1897 19 2e0el 2024 2098 
el7S0 6 Bey eseCiBS@sCi‘iS1GCOsel CHE CU CiCSSFC iG MIDCiaSC(<éi‘éN 39 = 2909 
e918 29e0_ Sle 3116 3174 
BICc8 319 1907 
BIS 210 360 366 371 379 420 434 452 453 485 505 Sle 547 S57 S64 
$71 589 652 703 743 B42 S750 «l07?—i2S9si21S = 2iSe)=s«l89 Sie SGC 
1S8 Ad ests 2928 3063 Ll <div aS 
IT 157 193 197 223 1 4 256 407 432 $72 597 607 614 662 683 
696 701 715 830 835 859 887 892 898 939 962 967 10S2 
1i20)8=6.1183)Ss«1187 =: 1230 2 276 )«=—§s«1306-—'—ss1310ssa1314H = s1318 =: 1350Ss: 139651370) 1405) 14S 
1430 1467 1487 1521 1541 1545 1554 1558 1 6 161 1623 1640 1644 1 
i668 1678 # 1682 1719 726 729 1735 1744 1749S «1758 Ss: 1761 1776 1785 1840 
1842 1851 1862 1878 1889 1910 1916 1925 1941 1963 1968) =—ss«s1970'-s 2006 «Ss e018 = 2076 
e166 2169 2180 e182 2209 ele  ec6 coop 40= code )6=— enCiéia4NLLC eC NSSC(‘éSOSGCtC«éS$ VP 45 
es49 2613 2660 e662 e718 2733 e776 e795 2797 2799 28929 82931 306 3072 3077 
3084 3090 3095 3146 
eS 1088 oath 502 519 S27 535 SY =14439)) «1476S e063) 3039) 047055 3136 
BMI oii sen oo? 706 748 754 789 972 06 1061S ss 1298si—ia13900'—«sa1789—si‘iHSL ee B!SSssé DH 
BNE i60 198 233 2s7 27 273 292 321 330 408 433 451 457 491 S11 
556 563 570 655 66 675 679 684 714 746 760 778 731 809 824 
8S1 865 869 872 883 981 1014 = =61041 1047) 0 1053) 1067) 1088s 132 Ss1134~—Ss 1180 
1178 = «1184 =: 1188 ee 3=«6le3l = 1237=Ss«d1e7?—Ss«1 281 1284 = «1302—Ss«1307—Ss 1311 1315 §=61319 132? 
1387s 14ehSs 1459 147, 1488 8 8=§=61497 1313 i, Pe |x ee bo 1885 1559 1563 166: 1614 
1645 1669 1720 7 1750) «=6.1759.-ssd7besid177?7?—s«1:78E 80 1817 1839—s«1841 1879 =: 1890 
1911 1917 192s «194 5085 1964 1969 1971 1979 S eo 210 gig e270 28) 
ee3ss = eebS 2293 HY 24S e464 e477 82497 86°06 0 | e536 2S S431 Ss bee eH 2 
e643 4 4e663 06 e734 Ss e745—i777—78B OBES BIS =e 2S ee? 930s e332 2S 002 «204 Ss 3031 
BPL 191 208 228 238 317 328 582 $91 694 700 764 735 834 B44 846 
8s5 651 9 927 938 951 96 #1018 1020 1028 1051 1098 
1100 1107, «1109S 1116 1118 = 1164 1166 118e = «1197——Ss«:1199 lee9 = «lebeSs«dL 284 le71 1273 
13321 1349 35 1359 1361 1369 §=61404) 8=61HSOsCsaHS@ss1HESS1HES)=SsISO3)—Sss150S~=—s«1517 
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1519 


Part 


ee es 
Ras 


1088 


1553 


SRE GN eae oS 


b= bd ee fw 
SeoewS NS 


POMBE NSuORe 


ein 
£0 


a Bs 


say BS 


997 
1179 


1771 


oi 


o 
pt 


Ww 
wares 
Or NONH = 


fi 


2680 
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UT og Ur rr erarae 
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wor es 
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YMBOLS 


1635 


eo 
oul 


0-OWWNUN LS 


FOUR 





Pa ie tetrter = 
Soreoae 2 


prow 
—— 5 
-oroo 








OZRPB.P11 CROSS REFERENCE TABLE -- PERMANENT SYMBOLS 


1447 1460 1489 1490 
1732 


MOV 145 


1 
iS83 1584 8§=61585) 3=—s_s«1586 


SRF 
S 
g 


3 
oS 


5 
ryrare 
habe 

furu 

rou 
S38 


Bes 
i 
BR Reai 


Rasenee 
Bsbane was 


GW 
~ 
~ 
w 
_ 
-_ 
uw 


Re 
Sr 
Bae 


® 
=: 
2 


G 2148 
GB ews e950 2952 2953 
bag Bagg 
NOP l7ee =“ 1783s«A7B4H «1765 
RESET 401 1393 = e035 
ROL 260 ebe 289 
8 484 550 587 
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1491 15141550 1591 1605 1832 1703 1706 ~= 1721 
1733 «173717421 1747 1751 «=«1756_=Ss«1763)=Ss«1766 «= «1769 ~—Ss«1770 
B44 = 1845 «1846 «1471872 = s:1875 1880 1892 = 1894 
1927 1934 1 1972 199 2029 «20 36 2057 
2120 ei22 |= 143, Bi7], 2174 = 21H 2197 2203 2e05 «= ae 
2507 2509 e512 £513 2516 2517 2620 2521 2524 2525 8508 
essy = 2cs5 | 558) 559 abe) 2553) 2566567570 
2633 2693 6696 e702 «8704 «= a707_ «Ss B708«Ss e713. e714 = 2717 
3020 3022 302 3034 3036 3037 3044 3045 3050 
3105 3131 = 31333134 
9 “170 “I7l1 “i72 173 «#174 ©6178 180 181 182 
22903 3H 8S G7 BH BS BG 
3343542 HSH aH HHSC HH 
503 SO Sei‘ (BSCS 601 605 609 
650 653 689 690 703 708 720 6 733 74H 
774 86 77ms—=<CS~SYSSsi“iéi ( GSS SssG?— isa. (GCiékH? GaSéRGP 
gy 903321920 a4, = S44 94758 
991 1 10091011 1038 «1057 1054 = 107e 3S 10 
1103. Mle 12S 128121130 13614) SH 1551169 
1191 1208 i210 1218 eei 124 1240 1250 1253 1254 te 
1286 612891321 1336 1343 «1352 «1356 «= a72s«1381 1382 
1419 14ee 44) Haz tH321437) 14381439 144014441455 
147901481, st4S2s1493)s1484 = s1507, 1809s 1S10s«1se3s1se5— 
i548 «1549S sIS6S)sS71_—ssS72 = 57BSsb7?s«579.s—«aSBO 1582 
1587 1588 «= 1590 1619S 1620S 1626) 1beB S629) 1630 = 16st S164 
1702 «1705 «=—«1709s«i7l2.=Ss«A71S—s«i71BSs«ai7i?,—s«7ia—Ssivepst 1754 
18e8 «61832 «= 183517] = «1874 «= 18831884 1885 1887 1 
1908 1909 1912 1921 1930 1938 1939 1940 1943 1990 1994 
2054 2055 2056 2058 2060 2061 2064 2066 2067 
2114 = 11S) 2119 2128 = 2133) 2139S) 2144 HS 2142147) 2149 
2178 «2191 2196 «= Bede «S207 «eke? 0 2252 2253 22 
2 2283 ©8284 «= 295) 09H_s«CBDs 243 2347 
Sieg Sue? bubabubgbu70 Sul byag «Buon buoy) Bae «Beal 
So3i beng «Sees | beer) See Bees | Seeg «| Seay | Steg Sei Ee 
2625 6 eb 2 2638 264i 2656 2657 2675 
2710 a7le 6739 © 8740 e742 6753758 7b3B765 
2781 2782 2783 e791 e794 e802 2805 2808 e8ll 4 2815 
2831 2833 2838 2840 841 e842  ca44 2847 2850 2853 2855 
2881 2884 2887 2890 2897 2908 2913 2914 6919 e922 
3040 3048 3062 3068 3079 30 97 3109 
311831493153 3154 = 3162S 3172S 3173. 31753178 «S377 —s3179 
318 3 
1353 1357 
137-3138 
2955 2956 
2980 
1881 1882 
104 
290 357 
568 sé le 
2951 2954 
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OZRPB.PLI CROSS REFERENCE TASLE -- PERMANENT SYMBOLS 
R ‘7 eve wet eet faa 5 1438 
nm if ie 8: ae ue 
sec Sauce 2418 243 2458 etes 2498 28a 
SUB ede BER 1433 1806 1961 2e4l 2669 
SWAB sey 268 373 4 2097 2386 2416 
TRAP 
TST 159 196 207 411 GaY 497 
705 753 763 730 7394 80 
980 10le 1019 1027 1035 1039 1045 
11765 1198 3 e 1272 1301 1333 
1518 1520 1$33 1573 1S9 1609 6 
1986 2070 2 el0e 2160 2164 2217 
e623 2631 essy 2658 2677 2743 e755 
3143 3158 
TSTB 227 232 237 264 267 316 327 
8390 S25 937 0 acs 1017 0 
lebl 1270 1295 1331 1348 1354 1358 
1607 1634 1652 1809 1819 1981 e068 
3675 3082 3033 3lel 3139 3156 
wt i739 1753 1780 l 1929 1967 2260 
ASCII 3272 3393 3405 3410 3488 3489 S496 
3547 3558 3568 3585 93 
-ASCIZ 217 218 338 339 3188 3191 3 
Bat 3230 35 3239 3243 3245 3249 
2 3083 87 3294 3698 3307 
3361 3365 3363 3374 3378 3383 3387 
-BLKW 280 337 
BYTE 2434 
-ENABL 1 397 
END 3608 
-ENDC 207 
+ al 4 2437 eS8s 3187 3405 3431 3487 
-LIST 1 2 143 397 
MACK at leb 127 128 129 130 131 
MACRO 1 136 2338 
-NLIST 1 3 143 397 
PAGE 397 1408 2043 2138 : 
T l 143 17390 194s 2947 2973 
.SBTTL beg 724 901 6 1408 1689 1865 
TITLE 5 397 
785 es3 3 1016 1024 1049 
1269 1292 1330 1384 1448 1461 1501 
1773 1915 1924 937 2073 2084 


ERRORS DETECTED: 


0 
DEFAULT GLOBALS GENERATED: 0 
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i711 


2880 


132 


2043 


1096 
1515 


133 


2138 


1105 
1551 
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| OZRPB.P11 CROSS REFERENCE TABLE -- PERMANENT SYMBOLS 


%, DZRPB. SEQ/SOL “CRF /PAGNUM/NL: TOC=SYSMAC. CO, DZRPB. P11 
RUN-TIME: 37 S51 & SECONDS 

RUN-TIME RATIO: 172/95=1.8 

CORE USED: 41K (81 PAGES) 


es tne ee ee = ee 





u 
runtia, 58 KCS. 3 8 rin ee 


, y 2 
ceeerte ‘co verere $4 tt +4 "34 
SOU UUTIDU OO QOUOOCEEEEEE ttt J Vereteneen selene eset woteteteratetalelatetetetetete lll 


pena kek ee 5 852b55G565666/7 77777777 858888888899933022 900 90000000 


Booooooooppdo00000008000000 joooooogobG000000000000000000 Sooodd0000000000000000000N000D0N0000000000000000011111111 lil 11111111111 
POOOOOOO 11111111 Lleeeeceeeee333333S33S4444444444SSSSSSSSSS6bE666666677777777778888888888999999999900000000001 222eee22333 









5 
i 


1 
lg 
% 
1 
lq 


